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UPER BACK UP 
UTILITY © 


_. WITH S.B.U. FROM 
COMPUTIZE YOU'LL 
NEVER NEED ANOTHER 
BACK-UP UTILITY FOR 

YOUR CO-CO!!! 

1. Tape to Tape 

2 Tape to Disk 

3. Auto Relocate 

4. Disk to Tape 
5, Disk to Disk 
¢ Menu Driven! 

* Requires 32K 
Extended Co-Co 
° Requires 1 or 2 Drives 
¢ All Machine Language!!! 
© © © ONLY $49.95 ° * © 
(SUPPLIED ON DISK) 
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WHAT’S HAPPENING::- Tutorials on 
Advanced BASIC, Basic BASIC, 
Educational use of computers, OS9, MS 
DOS/GW BASIC, FORTH, The 
CoCoConnection HARDWARE mods 
include:- high K upgrades. 
(128,256,512,1mb) AND THAT’S JUST 
SATURDAY!! Saturday night we have 
our dinner and prize session. (this is 
included in your registration fee) 
SUNDAY continues with MORE tutorials 
plus the opportunity to browse/buy the 
large range of software and hardware 
available for the CoCo and T1000. There 
will be lots of bargains! 

SPEAK UP!:- Now is your chance to 
suggest your ideas for any tutorials we 
may not have mentioned. (participants 
only). 

LOCATION:- 

SEAGULLS RUGBY LEAGUE CLUB 
TWEED HEADS. 


DATE:- Sat 30th & Sun 31st August 1986. 


REGISTER NOW!! 

We can only accept a limited number of 
people this year. DON’T MISS OUT! ona 
top weekend of FUN, FRIENDSHIP and 
LEARNING. 


Name: 


PHONE: 2... ccc ec ee ee ee eee ee 
No. People attending: 


$39.95 per person/ ist family member 
$20.00 per additional family member 
$9.95 dep. balance by 15/8/86 

Cost includes:- tutorials, dinner Sat. 
night, morning and afternoon tea. 


Tutorials likely to attend: .............. 


Please find enclosed: 
chq/money order/bankcard/visa/mastercard 


Card No. ..... ee cee te tenes 
Signature: ........ cee eee eee eee 


GOLDSOFT 





Hardware & Software for your TANDY computer. 


HARDWARE 
The CoCoConnection: 
Connect your CoCo to the real world and control robots, models, experiments, burglar alarms, water reticulation systems — 
most electrical things. 
Features two MC 6821 PIAs; provides four programmable ports; each port provides eight lines, which can be programmed as 
$206.00 





an input or output; comes complete with tutorial documentation and software; supplied with LED demonstration unit. 
Switchable memory addressing allows use with disk controller or other modules via a multipack interface; plugs into 
Cartridge Slot or Multipack, uses gold plate connectors; a MUST for the hardware designer and debugger! 


Video-Amp: 
Connects simply to your CoCo to drive a Colour or Mono monitor. With instructions $25.00 
With instructions and sound $35.00 


The Probe: 
A temperature measuring device which attaches to the joystick port of your CoCo $49.95 
or T1000, or to the joystick port of your CoCo Max. With amplifer $59.95 
Comes with programs to start you thinking, and is supported monthly in Australian CoCo 
magazine. 


Magazines: 
Australian Rainbow Magazine — THE magazine for advanced CoCo users! 
Australian CoCo Magazine — THE magazine for the new user of a Tandy computer. 
Also suits owners of CoCos, MC 10s, Tandy 1000s, 100s, 200s & 2000s. 


Back Issues: Feb ‘85 through 
Australian Rainbow Magazine. (Dec ’81 to now.) through Jan ’85 
Australian CoCo Magazine. (Aug ’84 to now.) each 

CoCoBug Magazine. For CoCo — usually 8 programs in each magazine. (Sep '84 to Oct 

*85) each 
Australian MiCo Magazine. For Tandy MC 10 computers. (Dec ’83 to Jul ’84) each 
Australian GoCo Magazine. For Tandy Model 100 users. (Jul ’83 to Jul ’84) each 


CoCoOz, on Tape or Disk: Each T $9.50 
The programs you see listed in Australian CoCo Magazine are available on CoCoOz! Sub ape 6 h $42.00 
No laborious typing — just (C)LOAD and Go! 1D rene monins $75.00 


. Each DISK $10.95 
Back issues of CoCoOz are always available Subscription on disk, 12 months | $102.50 


Rainbow on Tape, or Disk: 
Australian. The programs you see listed in Australian Rainbow Magazine are available on Each Tape $15.00 
tape. A boon if you don’t understand the language! Subscription, 12 months $144.00 
American. We also supply the programs found in American Rainbow on tape. NEW for 1986 ONLY Each DISK $15.00 
Please specify either Australian or American. Subscription on disk, 12 months | $172.00 








only) Subscription, 12 months 
Back issues of MiCoOz are always available. 


GOLDDISK 1000 — programs from ‘softgold’ for your Tandy 1000 on disk Be $10.95 


MiCoOz: 
The programs in the MiCo section of Australian CoCo Magazine. (For MC 10 computers | Each Tape $9.50 
$75.00 












CoCoLink: 
CoCoLink is our Builetin Board which you can access with any computer if you have a300 | Subscription to CoCoLink, 
baud modem and a suitable terminal program. There is a free visitor's facility, | 12 months 

alternatively membership entitles you to greater access of the many files available. 
We can also be contacted through Minerva (OTC) and Viatel (Telecom). 


$29.00 
Books: 
HELP: A quick reference guide for CoCo users. 
BYTE: Guide for new CoCo users. 
MiCo HELP: A quick reference for owners of MC 10 computers. 
Othello: by Darry! Berry 
The board game for your CoCo. Tape 16K ECB $15.95 
Say the Wordz: by Oz Wiz & Pixel Software 
Two curriculum based speller programs for your Tandy Speech/ Sound Pack. Tape 32K ECB $39.95 


Bric a Brac: 
Blank tapes... 12 for $18.00 or $1.70 each. 
Cassette cases... 15 for $5.00. 
Disks ... (they work!) $3.50 each or $28.95 per box of 10. 


HOW TO ORDER 


Option 1: Use the subscription form in this magazine. 





























_Option 2: Phone and have ready your Bankcard, Mastercard or Visa number. 
Option 3: Leave an order on Viatel, Minerva or CoColink, but be sure to include your Name, Address, Phone Number, Credit 
Card Number and a clear indication of what you require, plus the amount of money you are authorising us to bill you. 
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Please note that all the BASIC program 
listings you find in THE RAINBOW are 
formatted for a 32-character screen — 
so they show up just as they do on your 
CoCo screen. One easy way to check on 
the accuracy of your typing is to com- 
pare what character “goes under’ what. 
If the characters match — and your line 
endings come out the same — you Nave 
a pretty good way of knowing that your 
typing is accurate. 

We also have “key boxes” to show you 
the minimum system a program needs. 
But, do read the text before you start 
typing. 

Finally, the little cassette symbol on 
the table of contents and at the begin- 
ning of articles indicates that the pro- 
gram is available through our RAINBOW 
ON TAPE service. An order form for this 
service is on the insert card bound in the 
magazine. 


What’s A CoCo 


CoCo is an affectionate name that was 
first given to the Tandy Color Computer 
by its many fans, users and owners. 

However, when we use the term 
CoCo, we refer to both the Tandy Color 
Computer and the TDP System-100 
Computer. It is easier than using both of 
the “given” names throughout THE RAIN- 
BOW. 

In most cases, when a specific com- 
puter is mentionsd, the application is for 
that specific computer. However, since 
the TOP System-100 and Tandy Color 
are, for all purposes, the same computer 
in a different case, these terms are 
almost always interchangeable. 


The Rainbow Check Plus 


The small box you see accompanying 
a program listing in THE RAINBOW is a 
“check sum” system, which is designed 
to help you type in programs accurately. 

Rainbow Check PLUS counts the 
number and values of characters you 
type in. You can then compare the 
number you get to those printed in THE 
RAINBOW. On longer programs, some 
benchmark lines are given. When you 
reach the end of one of those lines with 
your typing, simply check to see if the 
numbers match. 


To use Rainbow Check PLUS, type in 
the program and CSAVE it for later use, 
then type in the command RUN and press 
ENTER. Once the program has run, type 
NEW and ENTER to remove it from the area 
where the program you're typing in will 
go. 
Now. while keying ina listing from THE 
RAINBOW, whenever you press the down- 
arrow key, your CoCo gives the check 
sum based on the length and content of 
the program in memory. This is to check 
against the numbers printed in THE 
RAINBOW. If your number is different, 
check the listing carefully to be sure you 
typed in the correct BASIC program code. 
For more details on this helpful utility, 
refer to H. Allen Curtis’ article on Page 
21 of the February 1984 RAINBOW. 

Since Rainbow Check PLUS counts 
spaces and punctuation, be sure to type 
in the listing exactly the way it’s given in 
the magazine. 


10 CLS:X=256*PEEK(35)+178 
2@ CLEAR 25,X-1 
3@ X=256*PEEK (35)+178 
4@ FOR Z=X TO x+7? 
S@ READ Y:W=W+Y:PRINT 2.Y:W 
6@ POKE 2,Y:NEXT 
2@ IFW=79BSTHENBGELSEPRINT 
“DATA ERROR” :STOP 
8@ EXEC X:END 
9@ DATA 162, 1, 106, 167, 148, 6@, 134 
100 DATA 126, 183, 1, 106, 130. 1. 107 
11@ DATA 175, 140, S@, 48, 148, 4, 151 


120 DATA 1, 107, S57, 125, i8, 35, 36 
13@ CATA SZ, 22, 79, 158. cb, 228. eS 
14@ DATA 39, 12, 271, 128, 271. i2& 
1S@ DATA 23@, 132, 38, 25@, 48, 2. 22 
16@ DATA 248, 182, 2, 222. 48, 148, 146 
17@ DATA 159, 166, 166, 132. 26. 254 
18@ DATA 189, 173, 198, $3, 22. 126, @ 


19@ DATA @, 135, 255, 134, 48, 55 
200 DATA 51, S2, 41, @ 


Using Machine Language 


Machine language programs are one 
of the features of THE RAINBOW. There are 
a number of ways to “get’ these pro- 
grams into memory so you can operate 
them. 

The easiest way is by using an editor/ 
assembler, a program you can purchase 
from a number of sources. 

An editor/assembler allows you to 
enter mnemonics into your CoCo and 
then have the editor/assembler assem- 
ble them into specific instructions that 
are understood by the 6809 chip that 
controls your computer. 





When you use an editor/assembler, all 
you have to do, essentially, is copy the 
relevant instructions from THE RAINBOW'S 
listing into CoCo. 

Another method of getting an assem- 
bly language listing into CoCo is called 
“hand assembly.” As the name implies, 
you do the assembly by hand. This can 
sometimes cause problems when you 
have to set up an ORIGIN statement or 
an EQUATE. In short, you have to know 
something about assembly to hand- 
assemble some programs. 

Use the following program !f you wish 
to hand-assemble machine language 
listings: 


10 CLEAR2Q@, &H3F @@: 1=RH3F BQ 
2@ PRINT “ADDRESS: ”:HEXS(I); 
30 INPUT “BYTE” :B$ 

4 POKE I, VAL( “&H“+BS) 

S®@ I=I+1:GOTO 20 


This program assumes you have a 16K 
CoCo. If you have 32K, change the 
&H3F OO in Line 10 to &H7F@@ and change 
the value of I to &H7F8@. 
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Before 
subscriber, please check your mailing label. 


you read any further, if you are a 

We've been working on some of the glitches in our 
database, and as part of this task, have reallocated 
many numbers. 

As a reminder, your subscriber's number is the 
number in the top left hand area of the mailing 
label. Then follows the renewal dates for the 
various items to which you subscribe. We replace the 
'8' in '86' with a code letter, except if you only 
receive Australian Rainbow Magazine. Some of the 
more usual code letters include 

B - Both Australian Rainbow & Australian CoCo 
I] - Australian CoCo 

C - CoCo0z 

R - Australian Rainbow on Tape. 

Of course we supply many more items than these on 
subscription, more details can be found on the 
Goldsoft pages towards the end of this magazine. 


We've been having a bit of a tidy up this month - 
not just with the Data Base but also with some of 
our equipment. 


COMPUTER 
STATIONERY 
SUPPLIES 


Continuous Computer Paper 
WE CATER FOR SMALL & LARGE 
ORDERS 
NONE TO SMALL, PLAIN OR PRINTED 


Dust Covers 
Continuous Labels 
Diskettes - Head Cleaners 
Adhesive Tapes 
Post-It-Products 
Ribbons and Tapes 






















FREE DELIVERY ANYWHERE IN 
SYDNEY 


PHONE RICK OR JEAN 
R & J DISTRIBUTORS 
CNR ELIZABETH DRIVE & 

ROSLYN ST LIVERPOOL 

(02) 601 1319 A/H 602 2396 


I have two grey case Colo’s tere c-e:ther works 
well. Qne merges programs acttmetiraily, and 
probably does other nasty tkinzs «x2. t2e other is 
just weird. Both are fitted with Yicer 46. 

We've decided to make these avatlatie <2 HACKERS 
only at $160 each. If you are not ints tardware and 
solder and chips and that sort of gear, dasn’'t even 
ask. 

We also have a pair of Remex double sicec drives 


for sale. One works, the other I would only use for 
Spares. 

Remex drives are a bit strange, but they are good 
gear if you know your hardware. Again, we would only 
be interested in selling these to someone who Knows 
what he/she is doing, for $200 the pair. 

We have a couple of printers to sell too. However 
as these will not be released from their current 
duties for another month or so, I will advise you of 
these next month. 


CoCoConf’86 plans are starting to gel. 

It appears that Education will be a major tutorial 
area on its own this year, as will the MS DOS / 
T1000 section. 

The whole thing seems to be growing very quickly 
around me - and I confess a little surprise at the 
keen attitude of many who have already booked to 
come. 

We did have a great time last year, and many of 
last year’s participants have booked just on the 
strength of that meeting. 

I will, in fact, be finalising the list of 
tutorials and tutorial leaders for publication next 
month. 

The latest tutorial to be offered is one by Bob 
Delbourgo, whose subject will be "The Use of CoCos 
in Education”. This is a tutorial anyone with even a 
remote interest in Education will not want to miss! 

On the commercial side, a number of suppliers have 
committed themselves to being at CoCoConf’ 86, 
including The Computer Hut from Bowen, Paris Radio, 
Queensland Colour Software Supplies, and Geoff Fiala 
(who makes THE printer interface for CoCo!). 

So how about it? 

The conference is on, 
the year to be somewhere 
you’re going to see some 


it is on at a great time of 
else, and if you com, 
of the most interesting and 
inovative gear available. You'll also learn from 
Australia’s foremost CoCo teachers; and you'll get 
the chance to meet many of the famous contributors 
to the CoCo scene. 

What's more, the venue is one which draws visitors 
back to the coast year after year. 

You can't miss this year - reserve your place —- we 
need to know now if you are going to be here! 


Finally, our zanny mate Andrew White, has come up 
with a few suggestions for those- who own a Commodore 
64 and don’t quite know what to do with it. Andrew 
has some ideas for interfacing it to the real world. 

Look for Andrew’s timely hints in next month's 
Australian CoCo! 
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EDUCATION OVERVIEW 


Educating with 


Electronic 





Communications 





By Michael Plog, Ph.D. 


hour on the Delphi telecommunica- 

tions network, I strongly encourage 
you to take advantage of this offer from 
THE RAINBOW. Like many of you, I have 
been playing around with Delphi for a 
while now, trying to learn the shortest 
way to get from one point to another. 

The folks who created the Delphi 
system must have been poets, because 
the name itself implies majesty, mystery 
and a reference to answers. “Delphi” 
was a special place to the ancient 
Greeks. It was the most important 
Greek temple and home of the oracle of 
Apollo. Also, the Greeks considered 
Delphi to be the center of the world. In 
the temple itself, a stone marked the 
exact spot of the world’s center, called 
the “navel.” 

The term “oracle” is actually a Latin 
word, not Greek. Traditionally, the 
oracle at Delphi belonged first to 
Mother Earth. Apollo either stole the 
oracle or was given it by Mother Earth. 
The medium of the oracle (the person 
actually doing the speaking) was always 
a woman over 50. The procedures to 
obtain an answer from the oracle were 
complex and rigid. A “reading” could 
only be given at certain times of the 
year. A ritual cake was required, along 
with a sacrificial animal conforming to 
rigorous physical standards. 

The oracle and her consultants 
bathed in a special spring, drank from 
a sacred stream, then entered the tem- 
ple. The oracle went to a basement cell 
in the temple, sat on a sacred tripod and 
chewed leaves of the laurel tree (this was 
Apollo’s special tree). While sitting and 
chewing on the leaves, the oracle would 


I: case you have not tried your free 


April i986. 


and Research 


speak. Her words, however, were not 
given directly to the person asking the 
question. They were interpreted and 
written by the priests, often in highly 
ambiguous verse. 

Delphi has been continuously inha- 
bited since the 14th century B.C. The 
height of the oracle’s prestige and 
popularity was in the 4th century B.C. 

When you stop and think about it, the 
present electronic Delphi is somewhat 
similar to the ancient oracle. People 
approach with a question or a need for 
information. It is always helpful to have 
a ritual cake (maybe a sandwich, but I 
find it easier to use a cookie). The 
sacrificial animal has been replaced 
with a plastic credit card. but still 
requires rigorous standards. (If you 
don't pay. you don't stay.) Your compu- 
ter does not have to be in a basement, 
but you are figuratively apart from the 
rest of the world. The messages we 
receive from our electronic oracle are 
sometimes ambiguous. 

I have learned a few things while on 
Delphi, other than about the system 
itself. It seems that everyone wants a 
RAINBOWfest held in a city close to 
where they live. Most of the Color 
Computer users responding to a poll 
have one or more disk drives. Of the 29 
respondents to one poll, 75 percent of 
them use more than one disk operating 
system for their Color Computer. I have 
also read some interesting messages 
about modems and operating systems, 
and have obtained some public domain 
software. 

I wonder about educational applica- 
tions of Delphi for schools and stu- 
dents. It seems that two major applica- 


Australian RAINBOW 


tions can be expected. First is the 
communication potential of Delphi. 
You can send messages to other people 
(perhaps those having some special 
expertise) and share ideas with others of 
a similar interest. The second benefit for 
education is the research capabilities of 
Delphi. 

The idea of communicating with 
other people with similar interests is 
important for the field of education. 
Several bulletin board services exist for 
special interest groups in education. 
These services connect people with 
similar interests and can serve many 
functions. For example, local school 
districts can send applications for spe- 
cial funding to state agencies or foun- 
dations by electronic means. One spe- 
cial interest group, educators for the 
handicapped, has an electronic com- 
munications service with one of the 
features being updates on proposed 
legislation. Subscribers know what is 
being discussed in Washington and have 
an ideal opportunity to contact their 
representatives and encourage a vote 
one way or the other. 

Electronic research capabilities have 
revolutionized decision making in busi- 
ness and government, but not yet in 
schools. Delphi has a connection with 
a system called DIALOG, a collection 
of over 200 databases. Some of these are 
highly specialized, technical databases, 
such as medical experiments or legal 
search organizations. A person might 
want to know how many microcompu- 
ters were sold to schools last year; 
searching the appropriate database 
provides the answer. 

The problems involved in using elec- 
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EDUCATION NOTES 


Building Language 


Arts Skills 


By Steve Blyn 


“Bi: to basics” skills are the 
trend in many school sys- 
tems throughout the coun- 
try. This renewed emphasis on the 
traditional language arts and math 
skills is probably the most popular way 
computers are currently being used in 
schools. These types of programs are 
commonly referred to as C.A.I. — 
Computer-Assisted Instruction. 

Way before the age of computers 
arrived, there existed many wonderful 
skill series of language arts workbooks. 
One such series is published by Barnell 
Loft, Ltd. These workbooks cover a 
wide range of skills, including following 
directions, using the context, locating 
the answer, getting the facts, getting the 
main idea and drawing conclusions. 
The individual booklets are available 
for the first grade up to high school 
level. 

Almost every school I have visited 
uses some of these skill booklets. I have 
used them in my classroom for several 


Steve Blyn teaches both exceptional 
and gifted children, holds two master’s 
degrees and has won awards for the 
design of programs to aid the handi- 
capped. He owns Computer Island and 
lives in Staten Island, New York. 


years. This month’s program is an all- 
purpose language arts program. It is 
easily adaptable to any of the ideas 
presented in such skill books. 

_ By varying the types of questions, this 
program can be geared to any of the 
mentioned skill areas. Similarly, the 
program can be made suitable for 
almost any level by changing the story 
content as well as the questions. 

One might ask, “Why is it necessary 
to replicate on the computer what 
already exists in booklet form?” Tsk! 
Tsk! There are several very good rea- 
sons. 

Computers may be presenting similar 
material, but through a very different 
medium. Children are naturally at- 
tracted to computers and sometimes 
learn better through them than by 
traditional means. Computers have the 
ability to give immediate feedback to 
the student — you know at every step 
of the way whether you are succeeding 
or not. 

Computers are also impersonal. By 
that, I don’t mean they don’t have any 
personality. Morris, my original CoCo, 
is very dear to me and has practically 
become a family member. (We do cele- 
brate his birthday.) By impersonal, | 
mean they are tireless reformers of 








mistakes. They do not complain to the 
user, nor do they make any judgments 
against the user. It is almost impossible 
for a person to remain impartial to 
successes and failures as computers do. 

The program presents part of the 
“Jack and the Beanstalk” story. This is 
located on lines 90 and 100. Our story 
is merely used as an example. The 
choice of story and the grade level for 
which it is written should be yours. The 
story of Jack was taken from a third- 
grade reader. 

A series of questions about the story 
is placed in the DATA lines 260-390. Our 
questions use a scattered approach: They 
purposely do not cover any one specific 
skill area. They are meant to illustrate 
the variety of questions you may use. 
They even go beyond the Barnell Loft 
areas mentioned earlier. Your questions 
can be as diverse as your imagination or 
just remain with one skill area. 

Fourteen questions were entered as 
illustrations. We chose the number 14 to 
show you that we are not limited only 
to 10 questions. Often, computer new- 
comers think there is something magical 
about the number 10 or its multiples. 
Not so! A short program such as this 
one can have literally hundreds of 
questions entered. You must, however, 





tronic research are generally cost and 
training. The price for using some of the 
databases can be very high. Some of the 
specialized databases can cost thou- 
sands of dollars per year, plus online 
connection time. Most schools are not 
willing to incur such expenses for stu- 
dent projects. Also, each database 
requires special procedures for search- 
ing. Those procedures can become 
complex for the untrained person. 

I believe these problems will be elim- 
inated in the near future. The proce- 
dures for specialized searching are a 
matter of software. Computer profes- 





sionals are currently working on new 
languages to help the human and ma- 
chine understand each other better. The 
cost factor may be a little more difficult 
to solve. It is expensive to maintain even 
a simple database — a lot of time is 
required (which must be paid for by 
someone). A lot of expensive equipment 
is also necessary to provide a database. 
The more people who use such systems, 
however, the less each will have to pay. 

Will we ever reach a time when elec- 
tronic communications and research 
are common practices for elementary 
and secondary students? Will we have, 
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for example, a sixth-grade student in 
Florida writing a report about earth- 
quakes, and including as part of that 
report, an interview with a California 
student who recently experienced an 
earthquake? 

The future is unknown; our current 
Delphi oracles only share present infor- 
mation, not future happenings. How- 
ever, if you or your school is using 
electronic communications or research, 
I would like to know about it. Please 
share your experiences and efforts. My 
Delphi username is MPLOG — why 
not drop me a line? O) 








tell the computer how many questions 
to read. Our number of questions is 
indicated in the dimension statement on 
Line 30 and also on lines 40 and 50. Be 
sure to include the number of questions 
you use on those lines. 

The program is set to ask 10 of the 
story questions each round. Common 
sense dictates that rounds come in sets 
of 10 questions. Other numbers that 
divide evenly into 100 are also good 
choices. The questions appear one at a 
time and do not repeat in a given round. 

Correct answers receive a happy tune 


and a message that says “correct” on 
Line 210. The incorrect answers, how- 
ever, are really the important ones. 
Each time a question is answered incor- 
rectly, its question and correct answer 
are stored in lines 400-420. This makes 
possible a review of these questions and 
answers. This is similar to a study- 
review sheet. 

The program handles the review on 
lines 430-480. If you have a printer, it 
is a good idea to print out the review for 
the student’s future reference. To get a 
printout, change the PRINT statements 


on lines 430, 440 and 460 to PRINT#- 
2, statements. You may add these to the 
existing lines to get the output on both 
the screen and the printer. 

It is hoped that you use this program 
as a model for incorporating your own 
versions. You may create fun programs 
to reinforce children’s favorite stories or 
programs to strictly strengthen specific 
language arts skills. A combination of 
the two might be the best route to go. 
Remember to save each of your versions 
on tape or disk before proceeding to 
your next creation. C) 
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The listing: F INDWORD 


16 REM"FIND THE WORD" 

26 REM"STEVE BLYN,COMPUTER ISLAN 
D,NY,1986 

a) DIM A$(14) ,B$(14) ,X$(18) ,Y$(1 
49 FOR T=1 TO 14:READ AS$(T),BS$(T 
):NEXT T 

58 R=RND(14) 

68 XY=RND(-TIMER) 

7% CLS 

89 PRINT@32,STRINGS (32,27); 

99 PRINT" JACK CLIMBED THE BEA 
NSTALK A SECOND TIME. HE WAS AGA 
IN HELPEDBY THE GIANT'S WIFE. TH 
IS TIME HE TOOK THE HEN THAT LA 


ID THE GOLDEN EGGS. HE ESCAPED 
QUICKLY."; 
198 PRINT" JACK PICKED UP THE M 


AGIC HARP ON HIS THIRD TRIP. BUT 
THE HARP CALLED OUT AND WOKE TH 


E GIANT. THE GIANT BEGAN TO CHA 
SE JACK." 

119 N=N+1 

126 PRINT@S,"N=";N;" xe 6A 
CK ** R=""3CR;} 


138 IF N>1$ THEN GOTO 439 

149 PRINT@352,STRINGS$ (32, (RND(12 
8)+127)); 

159 PRINT@416,STRING$(95," "); 
168 PRINT@384,"TRY TO FIND THE W 
ORD THAT..." 

17% IF R>13 THEN R=9 

188 R=R+1 

19% PRINTAS (R) 

208 INPUT CS$ 

219 IF CS=B$(R) THEN PLAY"L1@9CE 
GCEGCC": PRINT"CORRECT. PRESS ENT 
ER TO GO ON"; :CR=CR+1 

228 IF C$<>B$(R) THEN PLAY "L4cc 


i?eé., 
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": PRINTBS(R)" IS THE ANSWER.";:G 
OSUB 499 

238 ENS=INKEYS 

249 IF ENS=CHR$(13) THEN 119 

258 GOTO 239 

266 DATA IS A COMPOUND WORD, BEAN 
STALK 

278 DATA IS A COLOR,GOLDEN 

288 DATA HAS AN APOSTROPHE, GIANT 
'S 

298 DATA IS THE OPPOSITE OF HUSB 
AND, WIFE 

396 DATA IS GOOD TO EAT FOR BREA 
KFAST, EGGS 

316 DATA MEANS MORE THAN TWO ,TIM 
ES, THIRD 

326 DATA MEANS THE OPPOSITE OF S 
MALL, GIANT 

338 DATA MEANS THE SAME AS FAST, 
QUICKLY 

349 DATA MEANS THE SAME AS A VOY 

AGE, TRIP 

358 DATA IS THE NAME OF AN ANIMA 
L, HEN 

368 DATA IS A MUSICAL INSTRUMENT 
, HARP 

379 DATA IS THE OPPOSITE OF IN,O 
UT 

38 DATA THAT APPEARS MOST OFTEN 
ABOVE, THE 

398 DATA THAT IS USED 4 TIMES,JA 


CK 

498 X$(J)=A$(R) : ¥$ (J) =BS (R) 

419 J=J+1 

429 RETURN 

4368 CLS: PLAY"CDEFG": PRINT"HERE I 
S YOUR REVIEW" 

446 IF CR=19 THEN PRINT: PRINT"VE 

RY GOOD ... 166%":GOTO 499 

458 FOR K=$ TO J-1 

466 PRINT K+1;".";¥$(K);" IS THE 
WORD THAT": PRINTX$ (K) : PRINT 

479 ENS=INKEYS 

489 IF ENS=CHR$(13) THEN NEXT K 
ELSE 479 

4998 END 





GAME 





A nonviolent game for children. . . 


Set your Sails, 
Keep a Weather Eye out for Storms 
and Beware of the Jolly Roger! 





By David Compton 





veral times I have seen in 
the pages of RAINBOW a plea for non 
violent games for children. 

World Trader is written for the 
young child, perhaps a second or 
third grader. Even younger children 
can use it with parental help. 

World Trader is a text Adventure, 
but the reading is kept to a 
minimum. It essentially seeks to 
teach children the names of some 
countries and the products for 
which they are best known. The 
player can’t "lose” the game; he is 
just sent back to the beginning. to 
start over. At the same time, there 
is an element of nonfatal 





The listing: TRADER 


' TRADER 
' BY DAVID COMPTON, 252 N. 
ST., SUFFIELD, CT $6978 
"COPYRIGHT 1985 
CLS 
§ AAS="THE GAME OF": BBS="WORLD 
TRADER" : PRINT@298- (LEN (AAS) *.5), 
AAS: PRINT@272-(LEN (BBS) *.5) , BBS 
46 FOR DL=1T02$99:NEXT: CLS 
59 PRINT" IN THIS GAME, YOU STA 


MA 


excitement - pirates or storms may 
strike at any moment, costing you 
money, or you may arrive in a 
country to sell your goods, only to 
find that your customers aren't 


interested! 


All of the instructions are given 
at the beginning of the game, but 
here’s a summary: The idea is to 
earn $25,000 or more 
merchandise in one country and 
selling it at a profit in another. 
Note that you may have only one of 
each item in your hold at any one 
time. Only four commands are needed 


RT WITH A SHIP AND $1999. THE 0 
BJECT IS TO TRAVEL AROUND THE WO 
RLD, BUYING AND SELLING, UNT 
IL YOU EITHER RUN OUT OF MONEY 
OR EARN ENOUGH TO RETIRE." 
69 PRINT" EACH VOYAGE WILL COST 
YOU $199. IN ADDITION, YoU! 
LL HAVE TO BE CAREFUL OF PIRATE 
S AND STORMS." 
79 PRINT" YOUR CREW UNDERSTANDS 
THE COM-MANDS 'GO', 'BUY', 
L' AND ‘INV! (INVENTORY) ." 


by buying GO, 


by the player, GO, which presents a 
list of 10 countries you may travel 
to; BUY, which displays what the 
inhabitants have for sale (and 
reduces your cash on hand if you 
decide to buy); SELL, which 
disposes of your cargo and updates 
your cash; and INV, which informs 
you what's in your cargo hold. 

The player must also bear in mind 
that each time he uses the commmand 
his funds are reduced by $100 
to pay the cost of shipping and 
salaries for the crew. The first 
few trips should be made carefully, 
or the captain (you) will quickly 
run out of money. 


189 DATA CHINA, CHINESE, TEA, 1£9,9 
, SPICES , 2929, 9- 

199 DATA ARGENTINA, ARGENTINES, BE 
EF,19£9,8,HORSES, 3099, 

299 DATA ITALY, ITALIANS, PASTA, 35 
2,2,STATUES , 6999, 

219 DATA DENMARK, DANES, FURNITURE 
, 5P62,0,CLOTH, 1H92,9 

229 DATA INDIA, INDIANS, IVORY, 859 
$,,FABRICS,799,9 


'SEL~-239 FORX=1TO19: FORY=1T08 : READCN$ 


(X,Y) :NEXTY, X 


89 PRINT@448,"PRESS ANY KEY TO B \249 PRINT"YOU BEGIN YOUR VOYAGE 
EGIN" 


99 IFINKEYS=""THEN9G 

166 CLS ~ 

119 WE=16 90: WS="SS##,###" 
126 DIMCN$(19,8) . 

138 DATA BRAZIL, BRAZILIANS, COFFE. 
E,5£$,0,RELICS, 2992,9 

149 DATA HOLLAND, DUTCH, CHOCOLATE 
,189,,DIAMONDS , 19922, 


~15f8 DATA FRANCE, FRENCH, WINE, 1999 


,§, CHEESE, 259, 


169 DATA GERMANY ,GERMANS, BEER, 39° * 
9,8,CLOTHING, 1929, f 


17% DATA NORWAY, NORWEGIANS, FISH, 
228,0,CRYSTAL, 5999, 
Australian RAINBOW 





IN LONDON.YOU HAVE"; : PRINTUSINGW 
S;WE _ 
259 PRINTSTRINGS (32,"$") ; 


"269 IFWE>24999THENPRINT"YOU HAVE 


">: s PRINTUSINGWS ;WE: PRINT"A SUCCE 
SSFUL VOYAGE! YOU RETURN TO ENGL 
AND IN TRIUMPH! ":END 

279 PRINT"YOUR ORDERS, SIR?" 

89 -INPUTO$ 

298 IFG$="SELL"THENGOTO4 29 

399 IFOS="BUY"THENGOTO569 

319 IFO$="GO"THENFORX=1TO1: PRIN 
TX ;CNS$(X,1) sNEXT:GOTO349 


continued on Page 10 
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Invasion of the 


Flying Saucer 


People 


By Allen B. Carlisle 








you like fast action games that 
If challenge your reflexes and of- 
fer different skill levels, you 
will like Saucer. The scenario goes 
something like this: You are on a des- 
olate planet, and while safe from attack 
from the dreaded Saucer people from 
within your base camp (lower right- 
hand corner of the graphics screen), you 
must venture out to get the supply 
boxes, which are present at the lower 
left-hand corner of the graphics screen. 
The moment you venture out, or your 
robot ventures out (for those who abhor 
violence), a saucer enters the scene and 
randomly flies around shooting its laser 
beam at you. If you are hit, another 
man, or robot, exits the base and heads 
for the needed supplies. Each player 
gets four men per round. 
You are not left without defense, 
however, as you can shoot back by 
skillful use of the right joystick. Of 


970 
END 


The listing: SAUCER 


18 REM SAUCER *kkkkkkkkkhkkhhik 
28 REM (C) ALLEN B. CARLISLE 198 


REM ALL RIGHTS RESERVED#&& kk 


CHaeRARKKKKKEKEKAEKKEKRKEKKKKKKKKRKK 
THARAEKRKKKAEKERKEKRKRKKKKKRRKKKKKKKK 
REM INITIALIZE GAME 
CLS : PCLEAR4 : POKE65495,9 
DIMAS (4) :DIMA(4) : INPUT"NUMBER 
OF PLAYERS" ;2Z 
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course, the firebutton activates your 
laser gun, but aiming it takes a few 
attempts to master. Each time you 
succeed in knocking out a saucer, 100 
points are scored. Aiming your gun 
involves watching a blinking cursor at 
the uppermost horizontal part of the 
screen or the far left vertical position of 
the graphics screen. Your ray fires at 
that cursor position as you press the 
button. Movement to the right of the 
joystick causes the cursor to appear at 
the top, while movement to the left 
moves the cursor to the left vertical part 
of the screen. Up on the joystick causes 
the cursor to move up the screen if it is 
at the left vertical position, and to the 
left if it is at the upper horizontal 
position. Of course, down performs the 
opposite movements. 

When I decided to write Saucer, I 
knew the main mathematical task 
would be to obtain the formula that 


98 FOR PL=1 TO 22:CLS: INPUT"ENTE 
R NAMES";A$(PL) :NEXT: CLS: PL=1 
199 INPUT"SKILL LEVEL(1-5) ";L 
11) IF L<l OR L>5 THEN 1f9 ELSE 
L=ABS (INT(L) ) 

IF L=l1 THEN 139 ELSE 149 

DIS=9: QED=17:GOTO25p 

IF L=2 THEN 159 ELSE 169 

DIS=1:QED=15:GOTO259 

IF L=3 THEN 179 ELSE 189 

DIS=3 : QED=13:GOTO259 

IF L=4 THEN 199 ELSE 299 

DIS=3 : QED=19:GOTO259 

DIS=3 : QED=8 : GOTO256 

IF PL>ZZ THEN PL=1 

A(PL)=A(PL)+SCR 

IF MEN=$ THEN PL=PL+1l 

IF MEN=% THEN GOTO1179 ELSE 


259 REM DRAW SAUCER & GET IT 
266 PMODE4,1:U=214:SCREEN1,1: PCL 
S9:MEN=8 
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calculates the coordinates of the point 
on a line (laser ray) that is on the 
segment perpendicular to some other 
point off the line (center of the saucer). 
After having looked in all my analytical 
geometry texts, I found nothing that 
would give me what I needed, so I took 
some time to derive the formulae I 
needed. Line 1090 of this program is 
what gives the coordinates of this point 
(LX,LY), where (A,B) and (C,D) are 
two points of the laser beam shot at the 
saucer and (X,Y) is the coordinate of the 
center of the saucer. The actual distance 
is calculated in Line 1100. 

Variable QED 1s the test variable for 
this distance, which is larger for the 
lower skill level so that at skill level one, 
the beam does not necessarily have to 
touch the saucer in order to score a hit, 
but must be very close. 

Good luck knocking those nasty Saucer 
people from the sky! C) 


279 H1=29:H2=443: V1=7: V2=7: V3=7:V 
4=7: FL=-1: BOX=9 : M=92 

289 FOR I=1 TO 4: LINE(H1,V3)-(H 
2,V4) ,PSET: LINE (H1,V1)-—-(H2,V2) ,P 
SET 

299 H1=H1+1:H2=H2-1:V1=V1-1:V2=V 
2-1: V3=V3+1: V4=V4+1: PSET(31,2):P 
SET (32,2) :NEXT 

369 DIMS (12,26) :GET(19,1)-(45,13 
),S,G:LINE(19,1)-(45,13) , PRESET, 
BF 

318 REM DRAW &GET ROBOT 

329 DRAW"BM217,189R3D1L3R2D6L1U3 
L1;B;U1L2U1;B;D9R101;B;R1U2;B;R3 
D1;B;R1;B;D1D1L1" 

336 DIMR(11,8) :GET(214,189) -(222 
,191),R,G 

349 REM DRAW BASE 

359 LINE(249,164)-(255,191),PSET 
, BF: LINE (228,176) -(244,191) ,PSET 
, BF 
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369 FOR I=168 TO 184 STEP 8:LINE 
(248,1I)-(251,1+3) , PRESET, BF: NEXT 
376 LINE(232,184)-(235,187) , PRES 
ET, BF: LINE(249,184)-(243,187),PR 
ESET, BF 

389 REM DRAW SUPPLY BOXES 

399 FOR I= TO 88 STEP 8 

499 LINE(I,189)-(I+3,191),PSET,B 
: NEXT: SCREEN1, 1 


419 REM ENTER SAUCER 

429 FOR I= TO 128 STEP 8 

439 W=2p 

449 PUT(I,29)-(I+26,32) ,S,PSET 
45% LINE(I, 29) -(I+26,32) , PRESET, 
BF 

469 ABR=RND(9):IF ABR=2 THEN 489 


ELSENEXT 

476 GOTO 499 

488 GOTO 519 

499 I=128:PUT(I,W)-(I+26,Wt12) ,S 
, PSET:GOTO519 

509 REM MOVE SAUCER 

519 Q1=RND(9):IF Ql<.5 THEN A=-1 
ELSE A=1 

528 Q2=RND(f):IF Q2<.5 THEN B=-1 
ELSE B=1:H=RND(6) : V=RND(6) 

539 H=H*A:V=V*B: L=RND (29) 

FOR E=1 TO L 

IF I>226 THEN 639 

IF W>14f THEN 639 

IF I< THEN 639 

IF W<f THEN 639 

PUT (I,W) -(I+26,W+12) ,S,PSET: 
X=1: Y=W 

699 GOSUB 649 

619 LINE(I,W)-(I+26,W+12) , PRESET 
/ BF: I=I+H: W=W+V 

629 NEXT:GOTO639 

639 PUT(X,Y)-(X+26,¥4)2) ,S,PSET: 
GOSUB789:FOR DLY=1 TO 2:SOUND216 
,1:SOUND226,1:GOSUB 82:NEXT: I=X 
s W=Y : GOSUB86f : GOTO519 


649 REM MOVE ROBOT 

659 GOSUB86P 

669 IF FL>f THEN 799 

679 LINE(U,189)-(U+8,191) , PRESET 
, BF:U=U=-1: PUT (U, 189) -(U+8,191),R 
,PSET 

689 IF M=U THEN 699 ELSE RETURN 
699 FL=FL*-1:BOX=BOX+1:IF BOX=1 
THEN 759 ELSE U=U-8 

799 IF U<f THEN U=9 

71f LINE(U,189)-(U+13,191) , PRESE 
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529 IFOS="INV"THENGOTO7 29 





V47$ FORX=1T019: IFCNS (X,5)="1"THE 


T, BF: PUT(U, 189) -(U+13,191),B, PSE 
T:U=U+1 

726 IF U=215 THEN 739 ELSE RETUR 
N 

7398 LINE(U,189)-(U+13,191) , PRESE 
T, BF: FL=FL*-1:U=214: PUT(U, 189) -( 
U+13,191),R,PSET 

746 M=M-8:SCR=1999:GOSUB216:IF M 
<4 THEN 12598 ELSE RETURN 

759 REM GET ROBOT & BOX 

769 DIMB(11,13) :GET(87,189)-(199 
,191) ,B,G:U=87:GOTO 799 

77% REM SHOOT LASER BEAM 

789 XX=X+13:L=U+4:R1=RND(5):R2=R 
ND(5) :R3=RND(5) :R=R1+R2+R3 

799 IF L-9+R<§ THEN R=9 

886 LINE(XX,Y)-(L-8+R,191) , PSET: 
FOR DLY=1 TO 49:NEXT 

818 LINE (XX, Y)-(L-8+R,191) , PRESE 
T: RETURN 

829 IF ABS(R-8)<=DIS THEN 839 EL 
SE RETURN 

839 LINE(U,189) -(U+8,191) , PRESET 
, BF: MEN=MEN-1 


849 SCR=9 

859 U=214:FL=-1:GOSUB219: RETURN 
868 REM ROBOT SHOOTS 

879 K=PEEK(65289):IF K=126 OR K= 
254 THEN 1929 

889 JP=JOYSTK(#) :J1=JOYSTK(1) 
899 IF J1>54 THEN UN=UN+8 

999 IF J1>45 AND J1<=54 THEN UN= 
UN+5 

919 IF J1>36 AND J1<=45 THEN UN= 
UN+2 

929 IF J1>27 AND J1<=36 THEN UN= 
UN 

939 IF J1>18 AND J1<=27 THEN UN= 
UN-2 

949 IF J1>9 AND J1<=18 THEN UN=U 
N-5 

959 IF J1l>=$ AND J1<=9 THEN UN=U 
N-8 

969 IF UN<f THEN UN=9 

979 IF J$>32 THEN 1999 

989 IF UN>16f THEN UN=169 

999 LINE(#,UN)-(4,UN+4) , PSET, BF 


: LINE(%,UN)-(4,UN+4) , PRESET, BF:R 
ETURN 

1999 IF UN>254 THEN UN=254 

1919 LINE(UN,#)-(UN+4,4) , PSET, BF 
: LINE (UN, 8) -(UN+4,4) , PRESET, BF:R 
ETURN 





NPRINTCNS$ (X,3):PRINT"SOLD FOR";: 
PRINTUSINGWS ; VAL(CNS (X, 4) )+(.3*V 
AL(CN$(X,4))) :WE=WE+VAL (CNS (X, 4) 
)+(.3*VAL(CNS(X,4))) r. 


339 PRINT"I DON'T UNDERSTAND, CA 488 CNS(X,5)="p" 





PTAIN" : GOTO259 
349 INPUTDE: IFDE<10ORDE>19$THEN259 


358 GOSUBE79 
369 CLS: LS$=CN$(DE,1):PRINT"YOU A 
RE IN ";CN$(DE,1) 
4379 WE=WE-199 

389 PRINT"YOU HAVE"; ;: PRINTUSINGW 
$;WE 
/399 IFWE<STHENPRINT"WE'RE OUT OF 
MONEY, CAPTAIN. WE'LL HAVE T 
O RETURN TO ENGLAND TO GET A LOA 
N."': FORX=1T02999: NEXT: END 
499 GOTO259 
419 'kkeeKRRRSELLERRRRER 










429 FORD=1T0O19: IFCNS$ (D,5) ="1"THE . 


N45SELSENEXTD 

439 FORD=1T019: IFCNS(D, 8) ="1"THE 
N45SELSENEXTD- 

448 PRINT"YOU HAVE NOTHING TO SE 
LL." :GOT027f 

459 IFRND(1$)=6THENPRINT"THE ";C 
N$(DE,2);" AREN'T"; PRINT" INTERES 







4498 NEXTX 
v599 FORX=1T019: IFCNS (X,8) ="1"THE 


NPRINTCNS$ (X,6) :PRINT"SOLD FOR"; : 
PRINTUSINGWS ; VAL(CNS$ (X,7) )+(.3*V 


“AL (CN$ (X,7)) ) :WE=WE+VAL (CNS (X,7) 
_)+(.3*VAL(CN§$ (X,7))) 


519 CN$(X,8)="g" 
529 NEXTX 


538 PRINT"YOU HAVE"; : PRINTUSINGW - 


$;WE 
549 GOTO259 
559 TeeEeReEKKEBUYRRAKEE 


569 PRINT"THE ";CN$(DE,2);" WISH 
TO SELL:":PRINTCNS (DE,3) ,: PRINT 
USINGWS ; VAL(CNS$ (DE, 4) ) s PRINTCNS ( 
DE, 6) , 3 PRINTUSINGWS ; VAL(CN$ (DE, 7 


)) 
~578 PRINT"WHICH WILL YOU BUY?" 


589 INPUTBUS 
599 IFBUS$<>CN$ (DE, 3) ANDBU$<>CNS$ ( 
DE, 6) THENPRINT"THEY DON'T HAVE A 
NY FOR SALE" 


TED IN BUYING.":0$="GO":GOTO0319 69 IFBUS$=CNS$(DE,3) THENIFWE<VAL( 


469 PRINT"THE ";CN$(DE,2);" WILL 
BUY "; 
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CNS$(DE,4) ) THENPRINT"NOT ENOUGH M 
ONEY" : GOTO259 
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1929 IF J@>32 THEN 1959 

1939 A=$:B=UN:C=U:D=189 

1949 LINE(#,UN)-(U,18) , PSET: FOR 
DLY=1T02:SOUND216,1:SOUND226,1: 

NEXT : GOSUB1979: LINE(#,UN)-(U,189 
) , PRESET: RETURN 

1959 LINE(UN,#)-(U,18f) , PSET: A=U 

N:B=$:C=U:D=189 

1969 FORDLY=1T02:SOUND216,1:SOUN 
D226, 1: NEXT: GOSUB1979: LINE(UN, f) 
-(U,189) , PRESET: RETURN 

1979 REM CHECK IF SAUCER HIT 
198f X=X+13:Y=Y¥+6 

1999 LX=(X*(C-A) *2+A* (D-B) *2+(D- 
B) * (CA) *(Y=-B) ) / ( (D-B) *2+(C-A) 42 
) : LY=(B* (C-A) *2+¥* (B-D) *2+(B-D) * 
(C-A) * (A-X) )/ ( (D-B) *2+(C-A) *2) 
1199 IF SQR((LY-Y) *2+(LX-X) 42) <= 
QED THEN 1129 

1119 X=X-13:Y=Y-6: FORDLY=1TOX:AB 

R=RND(§) : NEXT: RETURN 

1129 REM SAUCER HIT 

1136 LINE(I,W)-(1+26,W+12) , PRESE 

T, BF: FORDLY=1T029 : SOUND299,1:RH= 

RND (26) :RV=RND(12) : PSET(I+RH, W+R 

V) :NEXT: X=X-13 : Y=Y-6 

1149 LINE(I,W)-(1I+26,W+12) , PRESE 

T, BF 

1159 IF J§>32 THEN LINE(UN,§)-(U 
, 189) , PRESETELSELINE(#,UN) -(U,18 

9) , PRESET 

1169 SCR=199:GOSUB219:GOT0419 

1179 CLS:FORK=1 TO ZZ:PRINT@ (64+ 

K*64) ,AS(K)3"'S SCORE= ";A(K) :NE 

XT 


1189 PRINT@384,"TO END GAME PRES 
S 'E'":PRINT@352,"NEXT ROUND PRE 
SS new 

1199 BS=INKEY$:IF BS="E"THEN1269 
ELSE IFBS$="N"THEN122$ELSEIFFLAG= 
1THENRETURNELSE1199 

1299 IF FLAG=1THENRETURN 

1219 CLS 

1229 IF PL>2Z THEN PL=1 

1239 PRINT@239,"R EAD Y ";A$(P 
L) ;:FORDLY=1TO 5$99:NEXT 

1249 LINE(X,Y)-(X+26,Y+12) , PRESE 
T, BF: SCREEN1, 1:MEN=8 :GOTO419 
1259 CLS:PRINT@193,"G AME Ov 
ER !!!!":NEXT:FOR DLY=1 TO 159 

$9:NEXT: FLAG=1:GOSUB1179 


1268 POKE113,$:EXEC49999 ~ 


619 IFBUS=CN$ (DE, 6) THENIFWE<VAL ( 
CN$ (DE, 7) ) THENPRINT"NOT ENOUGH M 
ONEY": GOTO259 

628 IFBUS=CNS (DE, 3) THENCNS (DE, 5) 
=)"; WE=WE-VAL(CN$ (DE, 4) ) 

638 IFBUS=CNS (DE, 6) THENCNS (DE, 8) 
="): WE=WE-VAL(CN$ (DE, 7) ) 

649 PRINT"YOU HAVE"; : PRINTUSINGW 
S;WE 

659 GOTO259 

669 END 

678 CA=RND(-TIMER) : CA=RND(19) 


689 IFCA=1THENLO=RND (19) #19: PRIN 


T"YOU'RE ATTACKED BY PIRATES DUR 


“-ING THE VOYAGE., THEY STEAL SOM 
« E OF YOUR MONEY." : WE=WE-LO: FORDL 


=1T04999 : NEXTDL: RETURN 


~698 IFCA=2THENLO=RND (19) #18: PRIN 


T"A BAD STORM! SEA WATER DAMAGES 
YOUR CARGO. YOU'VE LOST $";LO; 

"IN MERCHANDISE. ":WE=WE-LO: FORDL 

=1T04999:NEXTDL: RETURN 

799 RETURN 

719 THRHHKAKKRERKE|TNVRERRKERK 

726 FORD=1T019:IFCN$(D,5)="1"THE 

NPRINT CNS$(D, 3) 

73 NEXTD 


~748 FORD=1T0O19: IFCNS§ (D, 8) ="1"THE 


N PRINTCNS (D, 6) 
759 NEXT D 
769 GOTO259 








GRAPHICS 
A PEACE TREATY 


FOR 


COMPUTER HACKERS 


AND COUCH POTATOES 


by Bill Bernico 


What’s the matter? Is your 
family on your case because your 
computer's always hooked up to the 
television and they can't watch 
their favourite shows? Now you can 
"solve” that problem with TV Shows 
(provided they haven't already 
disconnected you from the tube. ) 


Actually "solve" is not quite 
accurate. Though this program 
doesn't truly solve that very real 
dilemma, it does offer a 
tongue-in-cheek response to it by 
using the CoCo’s sound= and 
graphics capabilities. 


Upon running the program you'll 
see a familiar sight - a 
television set. Along the left 
side of the screen you_ are 
presented with a list of nine 


choices. The last seven are things 
to watch on the TV and the first 
two are options that allow you to 
either turn the television on or 
off. Your choice is selected by 
using the up and down arrows. When 
you have chosen your option, press 
ENTER. 


What! You selected a television show 
but nothing happened? Did you re- 
member to turn the set on? Just as in 
real life, you can’t watch anything until 
you first turn on the TV. Move the 
arrow to the top and press ENTER. Now 
the set’s on and you can go ahead and 
select a program. 
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vision, don’t forget to turn it off again. 
You can do this by moving the arrow up 
to the second option and pressing 
ENTER. Once the set is turned off, trying 
to select anything else is useless; the set 
has to be on first. 





Sample Printouts 


TU SHOWS 


> TE 
NETHORK NENS 
CAR CARE SHOW 
NESTERN NQUIE 
THE LOVE BOAT 
MUSIC TELEWIEION 
COPS AKHD ROBBERS 
THREE STOOGES 





TU SHOWS 


— NETHNORK NEUS 
CAR CARE SHOW 
HESTERKN HOVIE 
THE LOVE BOAT 
MUSIC TELEVISION 
COPS AND ROBBERS 
THREE STOGGES 











The listing: TV SHOWS 


19 'TELEVISION SHOWS 
28 'BY BILL BERNICO 

36 '7$8 MICHIGAN AVE. 
49 ‘SHEBOYGAN, WI 53981 
58 '(414) 459-7359 

6p ! 
76 CLEAR 599 

89 SPS="BR6E 

99 PDS="BR3R 

199 WAS$=""F2R2E2UDF2R2E2UDF2R2E2U 
DF2R2E2UDF2R2E2UDF2R2E2UDF2R2E2U 
DF2R2E2UDF2R2E2UDF2R2E2UDF2R2E2U 
DF 

119 N1S$="BR3NU4 

129 N3$="BR3R3U2NL2U2NL3BD4 

138 AS="BR3U3ERFDNL3D2 

149 BS="BR3U4R2FGNL2FGL2BR3 


April 1734. 


ey rie: 
g ve. 
red 


C$="BR4REGLHU2ERFBD3 


156 
169 D$="BR3U4R2FD2GL2BR3 
179 ES="BR3NR3U2NR2U2R3BD4 
188 FS="BR3U2NR2U2R3BD4 
199 GS="BR3BU4BR3L2GD2FREULBR2BD 
2 
2299 HS$="BR3U4D2R3U2D4 
218 IS="BR3R2LU4NLRBD4 
228 J$="BR3BUFREU3LR2BD4 
239 K$="BR3U2RNF2NE2LU2BR3BD4 
249 L$="BR3NR3U4BR3BD4 
258 MS="BR3U4FRED4 
266 NS="BR3U4F3DNU4 
278 O$="BR3BUU2ERFD2GLNHBR 
289 PS="BR3IU4R2FGL2BR2BD2 
298 Q$="BR3BUU2ERFD2GNUNRLHBR3BD 
369 RS="BR3U4R2FGL2RF2 
319 S$="BR3R2EHLHER2BD4 
326 TS="BR3BU4R4L2D4BR 
338 US="BR3NU4R3NU4 
348 VS$="BR3BU4D3FRENU3BD 
3508 WS="BR3NU4ERFNU4 
368 X$="BR3UE2UDGHUDF2D 
379 Y$="BR3BU4DFEUDGD2BR 
89 PMODE4,1:PCLS1:SCREEN1,1:COL 


ORZ,1:DRAW"S4BM139, 17PCPU9IPR1 GD 
99L168BE9U72R7$D72L76": PAINT (142 
,91),8,8:CIRCLE(228,19%),7:FOR X 
=129 TO 159 STEP1$:CIRCLE(22f,X) 
,4:NEXT: CIRCLE(178,88),11,%,1,.5 
,1:DRAW"BM178, 70NH3QE39BM229, 199 
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U7D14":CIRCLE(148,49) ,2 

398 CIRCLE (298,48),2:PAINT(178,7 
7) ,2,8:DRAW"BM1@, 9S8"+T$+V$+SP$+ 
S$+H$+0$+WS+S$: DRAW"BM19,11R59 
408 DRAW"S4":LINE(17,39)-(9f, 31) 
, PSET, B: PAINT (18,36) ,8,@:DRAW"BM 
16,37C1"+T$+US+RS$+NS$+SPS+0S+4+N$+S 
P$+T$+V$ 3: DRAW"CO": LINE(17,54)-(9 
9,46) ,PSET,B:PAINT(18,51),@,@:DR 
AW" BM16,52C1"+T$+U$+RS+N$+SP$+0$ 
+FS+FS+SP$+TS+V$ 

419 DRAW"S4BM15, 68CO"+NS+ES+TS+W 
$+0$+RS+KS$+SPS+NS+ES+WS$+SS$: DRAW" 
BM15, 83"+CS+A$+RS$+SP$+CS$+AS+RS+E 
$+SP$+S$+HS$+0$+WS : DRAW" BM15, 98 "+ 
WS+ES$+S$+TS+ES+RS+NS$+SP$+MS+0S$+V 
S+I$+E$: DRAW" BM15,113"+4+TS$+HS+E$+ 
SP$+L$+0$+V$+ES$+SPS+B$+0$+AS$+TS$ 
429 DRAW"BM15,128"+M$+U$+S$+I$+C 
S$+SPS+TS+ES+LS+ES+V$+1I$+S$+1$+0$ 
+N$: DRAW"BM15,143"+C$+0$+P$+S$+S 
PS+AS+N$+D$+SPS+R$+0$+B$+BS+ES+R 
$+S$: DRAW" BM15, 158"+TS+HS+RS+E$+ 
ES$+SP$+S$+T$+0$+0$+G$+E$+S$ 

439 H=9:V=96:22=9 

448 BBS="R16NH3G3 

452 DRAW"CQYBM=H; ,=V;"+BBS 

468 IIS=INKEYS 

479 IF II$=CHRS (94) THEN DRAW"C1B 
M=H; , =V;"+BBS$:SOUND 219,1:V=V-15 
489 IF IIS=CHR$(1%8)THEN DRAW"C1B 
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M=H;,=V;"+BB$:SOUND 219,1:V=V+15 


499 IF II$=CHR$(13)AND V=36 AND 
ZZ=9 THEN 829 
599 IF II$=CHR$(13)AND V=51 AND 
Z2=1 THEN 819 
519 IF II$=CHR$(13)AND V=66 AND 
ZZ=1 THEN 619 
529 IF II$=CHR$(13)AND V=81 AND 
ZZ=1 THEN 669 
53f IF II$=CHR$(13)AND V=96 AND 
ZZ=1 THEN 689 
549 IF II$=CHR$(13)AND V=111 AND 
ZZ=1 THEN 799 
559 IF II$=CHR$(13)AND V=126 AND 
ZZ=1 THEN 719 
56f IF II$=CHR$(13)AND V=141 AND 
ZZ=1 THEN 739 
579 IF II$=CHR$(13)AND V=156 AND 


ZZ=1 THEN 759 

588 IF V>156 THEN V=156 

599 IF V<36 THEN V=36 

698 GOTO 459 

619 GOSUB 839:DRAW"C#": CIRCLE (17 
6,128) ,19:CIRCLE(176,124) ,3 

629 CIRCLE(169,117) ,4,8,.9:CIRCL 
E(183,117) ,4,9,.9:DRAW"BM171,126 
R19DL1$DR19DL19BM165,114R7UL7BR1 
5R7DL7BM179,129F3R6E3BM176,192D3 
FDFDRDRDR8 F2DFD6FRBM176,194DGDGD 
LDLDL8G2DGD6GLBM166 , 135GDGDGLGL9 
GLGLGDGDGDGDGDG3BM187,135FDFDFRF 
ROFRFRFDFDFDFBM165,135 

638 DRAW"M176,169M189,135D12L5F4 
M176,161LBM164,137D19R4G4M176,16 
g":CIRCLE(177,142) ,4:PAINT(177,1 
42) ,8,8:DRAW"BM177,139DF2DF2DF2B 
M177 ,139DG2DG2DG2BM175,142D14RU1 
4RD15RU14": PAINT (177,193) ,8,8:PA 
INT (175,193) ,9,@:PSET(169,117):P 
SET(183,117) 
649 DRAW"BM149, 96"+B$+U$+L$+L$+E 
$+TS+IS+N$:FOR X=1 TO 2096:NEXT: 
GOSUB8 39 : DRAW" BM142 , 96"+NS+ES+WS$ 
+S$+SP$+F$+LS$+A$+S$+HS$ : DRAW"BM15 
$,124"4+RS$+A$+1IS$S+N$+B$+0$+WS : DRAW 
"BM159,132"+M$+A$+G$+AS+ZS+IS+4N$ 
+ES$ : DRAW"BM141,149"+NS+AS+MS+ES$+ 
D$+SPS$+N$+0$+PD$+SPS4+N1$ 
659 DRAW"BM155,148"+AS+G$+AS+I$+ 
NS+PD$:FOR X=1 TO 3:QZ$="1:2:334 
7576;37;3;8;9;16;11;12;": PLAY"T9O5L 


24V15;":PLAY QZ$:NEXT:GOTO 456 
668 GOSUB 839:DRAW"BM143,199"+C$ 
+A$+R$+SP$+C$+LS+1$+N$+1I$+C$: DRA 
W"BM141,149R68": CIRCLE (157,135), 
5:CIRCLE(192,135) ,5:CIRCLE(157,1 
35) ,1:CIRCLE(192,135) ,1: DRAW" BM1 
62,136R25BM147, 136NR3U2$R3 GF7R18 
D12L3BM159,118ND6R17D6L17R9U6BR1 
IND6R5F6ND12L11D12 

679 FOR X=1 TO 15$9:NEXT:EXEC 43 
345: DRAW"BM184,123E13":FOR K=29 
TO 45 STEP.2:POKE 149,RND(49)+K: 
EXEC 43345:NEXT:GOTO 459 

688 GOSUB 839:DRAW"BM141,129M158 
, L19ND2M164,194D6M171,116D2M178, 
132D2GDGLGLGNH5 LGL2HLHUHUHLHLHL2 
HL2HUHU2HU2BM141,146E15": CIRCLE ( 
167,12) ,2:CIRCLE(175,133) ,2:DRA 
W"BM142, 129ND18BR3BU2ND19BR3BU2N 
D19BR3BU2ND19BR3 BU2ND1SBR3BU2D19 
BM179,134R39BL48L8 

699 DRAW"BM186,134E12G3H3F12BM19 
3, 134UERFDBM186, 134BE9BU4H2U2E4U 
2H4U2E4U2":FOR X=1 TO 2:PLAY"0O4T 
ALOCP8L12CCP8L1L2CCP8L12CGP8L12EG 
P8L12EGP8L12E": NEXT: PLAY" L3C":GO 
TO 459 

766 GOSUB 839: DRAW"BM147,1686"+L$ 
+0$+VS+ES+SP$+B$+0$+A$+TS$: DRAW"B 
M148, 128NR48R8E3NR26E6R4G2R22G3N 
D3E3L4E7L5G7L5E7L5G7R19G3D3R12D7 
L44H5BM149,134"+WA$:GOTO 458 

7168 GOSUB 839:DRAW"BM145,125C9U3 
PRIGF15E15R1GD39L12U18G13H13D18L 
12BM187, 116E8G4FRFRFRFRFRFBM198, 
167FRFRFRFU1#BM149,14@SR68BD3L68B 
D3R68BD3L68BD3R68":; CIRCLE (159,14 
2) ,2:CIRCLE(158,149) ,2:CIRCLE(16 
6,152) ,2:CIRCLE(174,146) ,2:DRAW" 
BM151,142U8BM159, 149U8 

728 DRAW"BM167,152U8BM175,146U8B 
M189,149D12":CIRCLE(187,15f) ,2:C 
IRCLE (195,155) ,2:CIRCLE(293,145) 
,2: DRAW" BM188 , 159U8BM196, 155U8BM 
294,155U8"; PLAY"V15T8L403CEGO4CP 
403GO04L3C":GOTO 459 

738 GOSUB832: DRAW"BM159,199CG"+D 
S$+RS+AS+GS+NS+ES+TS : DRAW"BM172,1 
19M176,117M185,117M177,122M189,1 
29M172,126M165,129M168,122M161,1 
17M169,117M172,119BM149,159"+S$+ 


TS+A$+RS+RS-2S-NS-GS: DRAW" BM145, 
157"4+I$-AS+CS-XS$-SPS+WS+ES+BS+B$ 
749 CIRCLE (172,22),13:SOUND 1,1 
2:SOUND 34,4:SOUND 44,2:FOR X=1 
TO 348:NEXT:SOUND 1,9:FOR X=1 TO 
7PP:NEXT:SOUND 1,12:SOUND 34,4: 
SOUND 44,2:FOR X=l TO 349:NEXT:S 
OUND 1,9:SOUND 79,12:GOTO 459 
75$ GOSUB 839:DRAW"BM145, 199Cp"+ 
N3$+SP$+S$+T$+0$+0$+G$+E$+S$:CIR 
CLE(153,139) ,1$:CIRCLE(175,13f), 
19: CIRCLE (197,139) ,18:DRAW"BM145 
,128R16": PAINT (146,126) ,8,f:CIRC 
LE(167,128) ,2:CIRCLE(168,125) ,2: 
CIRCLE (169,122) ,2:CIRCLE(183,128 
),2:CIRCLE (182,125) ,2 
769 CIRCLE(181,122),2:PSET(153,1 
33) :PSET(175,133) :PSET(197,133): 
PSET(149,129) :PSET(157,129) :PSET 
(171,129) :PSET(179,129) : PSET(193 
, 129) :PSET (291,129) :DRAW"BM149,1 
42E6BR13F3ND21E3BR16F4ND21E4BR15 
F3BM147, 155"+M$: DRAW" BM172,155"+ 
L$: DRAW"BM195,155"+C$ 
776 DRAW"BM159, 136R6BR16R6BR16R6 
789 SOUND 125,6:SOUND 133,2:SOUN 
D 146,12:SOUND 146,4:SOUND 179,8 
:SOUND 159,6:SOUND 146,2:SOUND 1 
46,4:SOUND 175,5:FOR X=1 TO 359: 
NEXT X:SOUND 159,6:SOUND 146,2:S 
OUND 146,4:SOUND 1798,5:FOR X=1 T 
O 358:NEXT X:SOUND 159,6:SOUND 1 
46,2:SOUND 146,4 
798 SOUND 175,5:FOR X=1 TO 35f:N 
EXT X:SOUND 125,6:SOUND 133,2:SO 
UND 146,12:SOUND 146,4:SOUND 179 
,8:SOUND 159,6:SOUND 146,2:SOUND 
146,4:SOUND 175,5:FOR X=1 TO 52 
5:NEXT X:PLAY"03T2V25L8EFAAAAGFD 
":SOUND 89,3:SOUND 199,3:SOUND 1 
25,3:SOUND 199,3 
899 FOR X=1 TO 126:NEXT X:SOUND 
125,3:SOUND 89,3:FOR X=1 TO 299: 
NEXT X:SOUND 175,2:GOTO 459 
819 GOSUB 83f:PAINT(142,91) ,#,2: 
ZZ=9:GOTO 459 
829 GOSUB 839:GOTO 459 
839 LINE(149,98)-(298,16) , PRESE 
T, BF: 2Z=1: RETURN 
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CoCocad Modification 


“CoCocad: The Schematic Scoundrel” (October 1985, Page 
130): Peter Kerckhoff writes to tell us that some other 
printers besides the Gemini-10X can be used with this 
program. 

First of all, there is a rather roundabout method that 
works with any printer that can be used to make screen 
dumps of regular CoCo graphics, if you have a screen dump 
program for your printer. Delete Line 1990 from the main 
program. When you request a printout, CoCocad will now 
save nine screen files on the disk. Each has the name 


PRT. PGn,; ‘n’ is the page number (so PRT. PG3 would be 
the third page). 

Now load in your screen print program and type the 
command PMODE 4,1:SCREEN1,1 and press ENTER. Then, 
for each file type LOADM”PRT.PGn”, and after the file is 
loaded activate the screen print routine. Once you have 
printed all nine pictures, cut them out and tape them 
together. 

Peter also included a new version of the Cadprint printer 
driver that is designed for the Tandy/ Radio Shack DMP 
series printers. Here it is: 





The listing: CADPRINT 
19 'CADPRINT VR1.$ BY P.KERCKHOF 


79 LOADM" PRT. PG"'+RIGHTS (STRS (PG) 


CHR$ (38) : STOP 


F 4335 HENDRIX WAY SAN JOSE CA - 
1985 RAINBOW MAG (OCT) 

28 'MODIFIED FOR USE WITH RADIO 

SHACK DMP-129 PRINTER BY DAVISSO 

N ON 19/15/85 

3 CLEAR1$9, &H379A:CLS: PRINT"cad 

print RUNNING": FORX=&H379B TO &H 
37FA:READ A: POKEX,A:NEXTX 

49 POKE15$,41 '12$9 BAUD 

58 PRINT#-2, CHRS$(18) 

69 FOR PG=STO8STEP3 


,1) , &H2AP9 

89 LOADM" PRT. PG"+RIGHTS (STR$ (PG+ 
1),1),&H4299 

99 LOADM" PRT. PG"+RIGHTS (STRS$ (PG+ 
2),1),&HS5SAQD 

18% EXEC&H379B 

119 KILL" PRT. PG"+RIGHTS (STRS$ (PG) 
,1) :KILL" PRT. PG"+RIGHTS (STRS$ (PG+ 
1) ,1):KILL"PRT. PG"+RIGHTS (STRS$ (P 
G+2),1):NEXT PG 

129 PRINT: PRINT"DONE.": PRINT#-2, 


139 DATA 134,254,151,111,134,1,1 
42,126,224,48,134,52,2,141,38,53 
,2,142,192,224,48,134,52,2,141,2 
7,53,2,142,78,224,48,134,52,2,14 
1,16,134,13,173,159,16f,2,53,2,7 
6,129,31,38,212,15,111,57 

149 DATA 198,156,52,29,239,132,1 
6,142,9,8,16,191,55,249,88,79,12 
2,55,258,16,199,55,249,38,245,67 
,138,128,173,159,169,2,53,28,48, 
136,224,9f8,38,218,57,9,9 
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Annual Expense Tracking 


and Management (% 


System 


By Eddie Hill 


his system (set of three programs) allows an individ- 

ual, or possibly a small business, to maintain and 

track expenses for one year. A maximum of 135 
transactions per month for up to 100 account codes may 
be tracked by month for an entire year (12 month period). 
Each expense you wish to track must have a numeric code 
in the range of | through 100 with a description not 
exceeding 27 characters. The system provides for screen 
display and printing of data and reports and is designed for 
use on a 64K CoCo with one disk drive and a DMP-100 
printer. In addition to maintaining actual transaction data, 
the system provides budgetary analysis for accounts over 
the year. This feature allows for comparative analysis of 
actual versus budget for an account (display and printout). 
It should be noted that budget or transaction summary 
amounts for an account cannot exceed $99,999.99 and a 
detailed transaction entry for an account cannot be greater 
than $9,999.99. 


Before proceeding, a discussion of a few basic concepts 
employed in the design of the system and programs 1s 
warranted. The programs feature extensive use of arrays 
which facilitate fast display of data and fast data entry and 
maintenance. The disk file access methods are extremely 
simple and straightforward and, for the most part, use array 
concepts. This extensive utilization of arrays in the 
programs yields a system which is both efficient and 
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inefficient, but overall it provides an effective and simple- 
to-use-and-understand method for tracking expenses. 

The design of the system requires that an entire diskette 
be dedicated for the recording of budgeted and actual 
expenditures for a year. If you utilize diskette backup for 
your files and system programs, then two diskettes will be 
required for one year of data (assuming you have only one 
backup diskette). Although the system can be used without 
a printer, one is highly recommended to achieve best results. 

As mentioned previously, the system consists of three 
programs. One program (Crexp/fle) creates the basic files 
required for system utilization. The system will not run until 
this program has been successfully executed. The second 
program (Exptrakr) allows the entry and maintenance of 
all budget and actual data. It also permits various screen 
displays of the data (both budget and actual). The third 
program (Reptgenr) prints various listings of budget and 
actual data. Execution of this program can be independent 
of Exptrakr or may be selected from the main menu of 
Exptrakr. After execution of Reptgenr you may return to 
Exptrakr by exercising the appropriate selection option 
from the main menu of Reptgenr. You may freely transfer 
between Exptrakr and Reptgenr or run either as a stand- 
alone program. It is important that you name the programs 
“Exptrakr” and “Reptgenr” because these are the names 
used in the call routines for the programs. 

Both Exptrakr and Reptgenr are menu driven programs 
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Exhibit 1 


REC ACT 
NUM NUM .....ACCOUNT DESCRIPTION.... 
1 1 HOUSE MORTGAGE 
2 2 INSURANCE 
3 3 BANK CARDS 
4 4 ELECTRICITY 
5 5 AUTO PAYMENT 
6 6 GROCERIES 
7 7 CLOTHING 
8 8 MISCELLANEOUS 
9 6 GROCERIES 
19 7 CLOTHING 


MONTHLY TRANSACTIONS FOR JANUARY 1986 


TRAN 
I.D. DA .-AMOUNT. TRANS. DESCRIPTION 
198 31 229.98 PAYMENT 
59 31 199.99 PREMIUM 
125 31 159.99 PAYMENT 
159 31 125.99 BILL 
119 31 189.99 PAYMENT #19 
99 15 175.96 W.D. 
95 25 89.99  JIM'S 
98 28 75.9% SOFTWARE 
99 31 245. 9D J&D GROCERY 
134 31 39.998 SHOES 
—<——e— > $ 1,369.29 





with submenus, instructions and comments as required. 
This approach offers easy access to (and exits from) routines 
within the programs. As with all BASIC programs, if you 
wish to exit a routine before completion, you may hit the 
BREAK key. Use extreme caution when exercising this 
option. An entire file or files can be easily “garbaged.” 
Therefore, it is not recommended. You may want to consider 
‘a BREAK disable routine in the programs. 


Crexpfle 
Crexpfle creates the basic files for the system. It merely 
formats and.sizes the following files: 


Budget Summary 
Transaction Summary 

Chart of Accounts 

Detail Transaction Filenames 


It must be executed before attempting to run Exptrakr or 
Reptgenr. 


Exptrakr 

This program is the heart of the system. It allows for entry 
and maintenance of all data utilized by the system. This 
includes charts of accounts, budget and transaction data. 
Exptrakr opens up with a main menu consisting of 14 
options. The main menu appears as shown below. 


1) Add/change/input budget 
2) Account YTD summary trans. 
3) Account actual vs. budget 
4) Account budget for year 
5) Chart of accounts maint. 
6) Display chart of accounts 
7) Add/chg/del/input trans. 
8) Display monthly budget 
9) Display monthly trans. 
10) Display actual vs. budget 
11) Report generator 
12) File deletion 
13) Backup files 
14) End session 


A discussion of each option follows. 

1) Add/ Change/ Input Budget 
Allows input and maintenance of budget data for an 
account. You select the month you wish to enter or change 
by entering the appropriate number for the month (1-12). 
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If you wish to enter or change data for all months, enter 
“99.” You return to the main menu by entering ‘0’. 
2) Account YTD Summary Transaction 
A display of a specified account showing summary amounts 
by month. Pressing ENTER returns you to the main menu. 
3) Account Actual vs. Budget 
Permits display of summarized actual versus budget 
amounts for a month or year-to-date through a given 
month. 
4) Account Budget For Year 
Displays the yearly budget month by month for an account. 
5) Chart of Accounts Maintenance 
As stated earlier, each expense you wish to track must have 
a numeric code in the range | through 100 and a description 
not exceeding 27 characters. The first five positions of the 
description cannot be “XX XXX” since this denotes to the 
system that the account has not been established for use. 
If you inadvertently enter a description with more than 27 
characters or “XXXXX” in the first five positions, the 
system will prompt you to re-enter the description. 
This selection gives you three options as follows: 


Option | — Allows for the entry of account descriptions 
in numeric order. You are first prompted for the 
description of Account I, then Account 2 and so forth 
until you have entered descriptions for all 100 accounts. 
If you wish to terminate entry of descriptions at any point 
before Account 100, merely type THATS ALL and press 
ENTER. The system will automatically return to the main 
menu just as it does when the description for Account 
100 has been entered. 


Option 2 — Allows for the addition or changing of 
account descriptions. The same procedure is used to add 


Exhibit 2 
BUDGET FOR JANUARY 1986 


ACT <--DESCRIPTI O N-=-> 


» AMOUNT.. 


HOUSE MORTGAGE 
INSURANCE 

BANK CARDS 
ELECTRICITY 
AUTO PAYMENT 
GROCERIES 
CLOTHING 
"MISCELLANEOUS 


SOrnaurh WD 


TOTAL 1,239. 





or change an account description. A prompt appears that 
asks for the account number. After entering a valid 
account number the account number and description will 
be displayed. You will be asked if this is the account you 
wish to add or change. If so, type YES and press ENTER. 
If not, type NO and ENTER. After entering a changed or 
added account description you will be asked if you wish 
to add or change any more account descriptions. The 
process will repeat as long as you respond “yes.” A “no” 
response will return you to the main menu. 


Option 3 — Choosing this option will return you to the 
main menu. 

6) Display Chart of Accounts 
Allows for the display of all account numbers with their 
descriptions (Option 1) or for a single account number with 
its description (Option 2). If an account description 1s all 
X’s, it has not been set up for use by the system. Option 
3 returns you to the main menu. 

7) Add/Chg/ Del/ Input Transaction 
Permits the entry and maintenance of detail transactions 
(expenses) for a selected month. 


Option | — This allows the entry of detail expenses for 
a selected month. You are asked for the number of the 
month (1-12). The program then checks to see if 
transactions have already been entered for the month 
selected. If so, you cannot re-enter the transactions unless 


Exhibit 
JAN 
MAY 
BUDGET FOR 1986 SEP 
HOUSE MORTGAGE 202.90 
222. 0D 
1 TOTAL..$S 2,499.99 208.99 
INSURANCE 52. ff 
59. PP 
2 TOTAL..$ 600.09 59.92 
BANK CARDS 129.92 
168.92 
3 TOTAL..$ 1,229.99 108.92 
ELECTRICITY 1528.26 
159. $2 
4 TOTAL..$ 1,829.99 158.98 
AUTO PAYMENT 1898.06 
188.99 
5 TOTAL..$ 2,169.99 188.69 
GROCERIES 499.00 
422. D2 
6 TOTAL..$ 4,899.96 498.9f 
CLOTHING 109.69 
198. £9 
7 TOTAL..$ 1,269.99 168.99 
MISCELLANEOUS 5D. 26 
52.28 
8 TOTAL..S$ 602.90 58.22 
TOTAL BUDGET FOR YEAR 1,238.62 
1,238.96 
999 TOTAL..$ 14,768.99 1,239.98 


you delete the entire month’s transaction file (see 
Selection 12, File deletion, for instructions). If transac- 
tions for the month you wish to enter are not on file, the 
program allows you to continue and prompts you 
through entry of your expenses. Please notice the 
program assigns each entry a record number which will 
be used for changing or deleting transactions, if neces- 
sary, in the future. Each addition to a month’s transac- 
tion must be assigned a record number. This must be an 
unused number in the range 1-100. More on changes, 
deletions and additions later. 

The entry of detail transactions requires a valid 
account number for each transaction. Therefore, you 
must set your chart of accounts file up prior to using this 
option. Other information you must enter is as follows: 

Date — This is the day the transaction occurred. 

Trans. I.D. — A one- to four-digit identifying tag (e.g., 
check number). May be alphabetic or numeric. 

Amount — The amount of the transaction (not to 
exceed $9,999.99) may be debit or credit. 

Description — This is an optional identification, not 
exceeding 14 characters, for the transaction (e.g., 
monthly payment). 

When the entry of the detail transaction is complete, 
press ENTER. This writes the transaction to the file and 
returns to a fresh transaction entry screen for input of 
the next transaction. Upon completing the entry of all 
detail transactions for the month, enter “ZZZ” in the 


FEB MAR APR 
JUN JUL AUG 
OcT NOV DEC 

222. PP 22D. D2 289.22 
222. 9D 222. D9 222.22 
20. D2 222. PP 222. D2 
50.20 52. fD 56.29 
58.02 52. Pf 56.62 
56.22 52. PD 56.62 
122.92 162.22 182.62 
162.22 192.28 122.22 
162.92 162 .f2 192.29 
152.99 159.28 159. D8 
152. 2D 152.26 152. £P 
152. 2D 152.99 152. DP 
182.69 189.29 189.2 
182.29 182. 2h 189.2 
182.29 182. ff 189.99 
4DD. D2 4DD. PP 4DD. DD 
4DD. LP 4DD. £2 ADD. DD 
42D. DP 4D9.DD 4BD. D2 
1f9.2f 109.22 182.29 
162.9 1f2. PD 1D. DD 
188. 2D 1f2. Pf 1f2. PP 

58.22 58.62 56. 2D 

52.26 50.28 56. PP 

58.98 52. PP 5P. PP 


1,232.D2 1,238.29 1,232.22 
1,232.2 1,232.02 1,239.9 
1,238.92 1,232.ff 1,239.22 


Sporil 19864, Sustralian RAINBOW PAGE 15 





Exhibit 4 


JAN 

MAY 

ACTUAL FOR 1986 SEP 
HOUSE MORTGAGE 228.90 
2.PD 

1 TOTAL..$ 208.20 G. D2 
INSURANCE 102. DD 
2. DP 

2 TOTAL..$ 199.99 2.92 
BANK CARDS 159.99 
2. LP 

3 TOTAL..S 159.99 2. PD 
ELECTRICITY 125.69 
2. $2 

4 TOTAL..$ 125.99 9.69 
AUTO PAYMENT 189.69 
2. PP 

5 TOTAL..$ 189.99 2.99 
GROCERIES 426.28 
$-LP 

6 TOTAL..$ 429.29 9.90 
CLOTHING 119.29 
9-PD 

7 TOTAL..$ 119.99 2.90 
MISCELLANEOUS 75.90 
9. PD 

8 TOTAL..$ 75.9 9.29 
TOTAL ACTUAL FOR YEAR 1,369.99 
2. PP 

999 TOTAL..$ 1,369.69 2.22 


account number field and press ENTER. This will 
complete the writing of the transaction file and post 
transaction summary totals for the month. After this is 
complete you are returned to the data entry submenu. 


Option 2 — Allows the entering of new information for 
a transaction which has already been entered. You must 
specify the month and the record number of the transac- 
tion (shown on detail printout of month’s transactions) 
you wish to change. A check is made to ensure that you 
have entered a correct record number. If the record 
number is valid, the transaction is displayed. Next, you 
are asked if it is the one you wish to change. If so, all 








Exhibit 5 


TRANSACTION SUMMARY FOR 1986 ....A/f 91/31/86 


ACT ...-ACCOUNT DESCRIPTION.... 


««eAMOUNT... 


1 HOUSE MORTGAGE 229.62 
2 INSURANCE 199.92 
3. BANK CARDS 159.99 
4 ELECTRICITY 125.99 
5 AUTO PAYMENT 189.99 
6 GROCERIES 429.90 
7 CLOTHING 119.62 
8 MISCELLANEOUS 75.20 


TOTAL $ 1,369.99 
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FEB MAR APR 
JUN JUL AUG 
ocT NOV DEC 
2. LP 2. PP 2 - LP 
2. PP 2. LP B- LP 
2. DP B- PP 2 - PP 
2. BP 2 - LL 2 - PP 
2. PP 2 - LL 2- PP 
2. PP $. PP B-PP 
2. PP 2. PB 2. PP 
2-22 2. PP 2 - PP 
2. Lp 2- PP 2. PP 
2. PP 2. LP P. PP 
2. PP 2. PP 2. PP 
P. PP 2. PP 2. PP 
2. LL 2. PP 2. PP 
2. LP 2. PP 2. PP 
B. PP 2. PP 2. PP 
2. PP 2. PP 2. PP 
2. PP 2 - LP B. PP 
2.22 2. PP 2. PP 
2. PP 2. PP J. PP 
2. PP B- LP 2. PP 
2. PP 2. PP B- PP 
2. PP 2. PP 2. PP 
2 - PP 2. PP 2. L2 
2. PP 2. PP 2- PP 
B. DP 2. DD 2.22 
2. PP 2. PP 2. PP 
P. Pp 2. PP B. PP 


of the data must be re-entered for the transaction (just 
as if it were new). Upon completion of entry of the new 
data for the transaction, press ENTER. This records the 
transaction on the file and asks if you wish to change 
more transactions. If you answer ‘Y’ then the process 
repeats, else the transaction summary file is updated and 
you are returned to the data entry submenu. 


Option 3 — This option will add new transactions (e.g., 
overlooked, not available at time data for month was 
entered) to a month’s file. You must specify the record 
number for the record to be added. This may be derived 
by looking at a detail printout for the month and adding 
one to the record number shown for the last transaction. 
The program will not permit the addition of a transaction 
with an existing record number, as it checks this before 
allowing you to proceed. Once it is determined that you 
are not trying to add a duplicate record, you are 
presented with the data entry screen. The procedure from 
this point is the same as for entering change data in 
Option 2 of this selection. Instead of referring to 
transaction changes, the prompts relate to transaction 
additions. 


Option 4 — Allows you to delete a transaction from a 
month’s file (e.g., a transaction was included in the wrong 
month). Again you must work with a record number, 
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Exhibit 6 





ACTUAL VS. BUDGET FOR JANUARY 1986 
ACT ...DESCRIPTION... ...ACTUAL.. ...BUDGET.. . . VARIANCE. 
1 HOUSE MORTGAGE 208.08 209.92 2.62 
2 INSURANCE 102.68 52. D2 59. f5- 
3. BANK CARDS 159.92 122.22 58. PP- 
4 ELECTRICITY 125.69 159.62 25.99 
5 AUTO PAYMENT 189.96 189.92 2.90 
6 GROCERIES 429.90 409.20 26.09- 
7 CLOTHING 119.99 198.99 19.p9- 
8 MISCELLANEOUS 75.20 50.29 25.60 
TOTAL ----> $ 1,368.96 $ 1,238.96 #$ 136.99- 
Exhibit 7 
YEAR TO DATE A/O JANUARY 1986 
ACT ...DESCRIPTION... .. ACTUAL... ...BUDGET.. . - VARIANCE. 
1 HOUSE MORTGAGE 209.09 209.2 2.29 
2 INSURANCE 199.92 52.92 52. f2— 
3. BANK CARDS 159.92 169.92 58. 09- 
4 ELECTRICITY 125.96 159.62 25.92 
5 AUTO PAYMENT 189.99 189.99 2.20 
6 GROCERIES 429.2 422.22 28. 26- 
7 CLOTHING 119.6 189.69 19.99- 
8 MISCELLANEOUS 75.99 58.29 25.69- 
TOTAL ----> S$ 1,368.p9 S$ 1,236.92 $ 139. 22- 


which may be obtained from the printout of the detail 
transactions for the month. You are asked for the deletion 
record number, then the program checks to see if it is 
valid. If so, it displays the record for a visual verification. 
You are asked if this is the record you wish to delete. A 
response of ‘N’ prompts you for another record number 
while a ‘Y’ response deletes the record and updates the 
appropriate files. The steps from this point follow the 
same logic as options 2 and 3 in this selection, except 
comments that relate to deletions. 


Option 5 — Returns to the main menu. It should be noted 
that options 1 through 4 for this selection allow for 
submenu return in case you chose an option in error. 


8) Display Monthly Budget 
Displays budgeted account expenditures for a selected 
month. 

9) Display Monthly Transaction 
Displays the summary amount of each account’s transac- 
tions for a selected month. 

10) Display Actual vs. Budget 
You have the choice of choosing a specific month or year- 
to-date through a specific month. The submenu will guide 
you. 

11) Report Generator 
This selection allows you to print out reports from the data 
you have entered. This is a separate program (Repigenr, 
program Listing 3) and is called from this menu choice. You 
are given seven print selections plus a selection to return 
to the main program (Exptrakr) or to terminate the session. 
Details on this selection are covered in the comments on 
program Listing 3. 

12) File Deletion 
This selection allows you to delete either a budget or 
transaction file for a specified month. The appropriate 
transactions summaries are adjusted. After completion of 
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this option, data for a given month (budget or transaction) 
may be re-entered. 

13) Backup Files 
The method used is the single disk copy procedure provided 
for but not documented in the Radio Shack manuals. I 
recommend at least a two-generation backup system 
(backup of current files, plus prior generation). 

14) End Session 
Choose this option when you are ready to end the program 
(Exptrakr). Remember to backup your files. 


Reptgenr 

This program provides for various listings of your data. 
A discussion of the selections follows: 

1) List Monthly Transactions 
This selection gives you a listing of all the transactions for 
a specified month. The listing is the only place where this 
detail is given. Record numbers are obtained from this 
listing. See Exhibit |. 

2) List Monthly Budget 
This option provides a listing of the budget amounts for 
each-account with budgeted expenditures in a specified 
month. See Exhibit 2. 

3) List Budget For Year 
Provides a month-by-month listing of each account’s 
budgeted amounts for the year. See Exhibit 3. 

4) List Actual For Year 
Provides a month-by-month listing of each account’s actual 
amounts for the year. See Exhibit 4. 

5) List Transaction Summary For Year 
Provides a summarized listing of all account amounts 
entered. See Exhibit 5. 


continued on Page 28 
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RECEIPT AMER 
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by Bill Tottingham 


Once you've had the CoCo for a 
while, as most of you have 
probably experienced, you begin to 
look for ways to use it for about 
anything you can think of, if for 
no other reason than to prove your 
computer is more than "just a 
toy”, as the guy down the street 
the the $5000 IBM says. Any of us 
who have spent any time with the 
CoCo know that’s a_ ridiculous 
notion. I know several people who 
run small volume businesses who 
would love to use the CoCo due to 
its relatively low’ cost. One 
particular person wanted a program 
that not only printed out a 
receipt Che was writing them out 
by hand), but also would save the 
information to disk for later tax 


purposes. This program is’ the 
result - no need for a million 
dollar computer and another 


million in software. 

To use Receipt File you must have 
at least 32K and a disk, and 
should have a printer. The program 


is set to use a DMP-100 at 1200 
Baud. If you are going to use a 
different printer, change the 
received control codes in the 


following lines: 


DMP-100 
POKE149,@:POKE15@,41 
CHRS(15) 


CHRS(14) 
CHR$(31) 
CHRS$ (30) 


Entering Data 

After making any needed changes, 
you are ready to run the progran. 
The first thing you will see is 
the main menu. On it will be five 
choices (8see Ffigure 1). Since 
we're just getting started, press 
'2' for “Enter new data.” You will 
then be asked the date. Enter it 
in the same format the example 
Shows, then press ENTER. You will 
then be asked if the information 
given was correct. (When entering 
new data you will always be asked 
if the information provided was 
correct. ) 


Next you will be asked for a “Receipt 
number.” You must enter a number. 
This is the number the program uses for 
filing. It also must be a number different 
from one already on file. The best bet 
is to give the receipt a number incre- 
mented by one over the preceding 
receipt. For the first one, enter 001. 

You will now be asked to enter “Re- 
ceived of.” Here you may enter the 
name of your customer. 

Next comes the “Dollar amount 
paid.” This is exactly what it says. Enter 
this like the example shows. 


Function 

1200 Baud printer 
Enable underline 
Disable underline 
Elongated mode 
Character mode 
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Now we come to “Amount of Ac- 
count.” This is the total purchase price. 
You can use the balance due from any 
previous payment of the same account. 
This will be printed on the receipt with 
the amount paid and a balance due. If 
the amount of account is the same as the 
amount paid, simply enter the amount 
paid here again if you wish. If not, press 
ENTER. 

Finally we come to the comment line. 
Enter anything you wish; however, it is 
customary to use this for what was 
purchased, or the nature of the transac- 
tion. If you are the purchaser, you might 
want to enter the name of the other 
party, so if the hard copy is lost you will 
still have the information come tax 
time. There is a 30 character space here. 

You now find yourself back at the 
main menu. If you want to examine the 
information to be printed and/or saved, 
press ‘3’. If any of the information is 
wrong, press ‘M’ to return to the main 
menu and press ‘2’ to re-enter all the 
data. If everything is correct, the receipt 
can be printed or saved to disk. Press 
‘M’ to get back to the menu. 


Saving to Disk 

If you are planning to save this data 
on disk, it can be done now or after 
printing the receipt. 

To save on disk, press ‘1’ for the disk 
menu (Figure 2). Here again there will 
be five choices. Since we are saving 
data, press ‘3’. You will then be asked 
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to press ENTER for save or ‘M’ for menu. 
After the save is completed, you will be 
returned to the main menu. 


Printing the Receipt 

To print the receipt, press ‘4’. You will 
be asked if you want a copy. Pressing ‘Y’ 
tells the printer to print two receipts. 
Before answering this prompt make 
sure your printer is on and ready to go. 

After printing, you will be returned to 
the main menu. Here you may save the 
data (if not previously saved), enter new 
data or look at and/or load previous 
accounts. 


Entering Data from Disk 

To load data from disk, first get to the 
disk menu by pressing ‘1’ on the main 
menu. The easiest way to load is to press 
‘1’ from the disk menu. A list of receipt 
numbers will appear on the screen 
preceded by a number; for example: 1) 
001. To load receipt #001, press ‘1’ and 
ENTER and the file will load. If you 
already know the receipt number, press 
‘2’ on the disk menu and enter the 
number at the prompt. 

After loading, you will automatically 
be in the examine mode (Figure 3). 
From there you can print out a receipt, 
load a different receipt or enter new 
data. 

As with all programs, this one can be 
modified to your specific needs. Some 
ideas might be to incorporate a different 
filing system if you are in a higher 
volume business. To enter data faster, 
you could hack off everything after the 


The listing: RECEIPT 


19 CLEAR 

20 CLEAR5S £2 

39 VERIFY ON 

49 DIMP$(35,2)- 

59 CLS:PRINT@46, "MENU": PRINT@165 
"[l] DISK MENU": PRINT@229," 
[2] ENTER NEW DATA": PRINT@29 
3,"(3] EXAMINE": PRINT@357,"[ 
4) PRINT RECEIPT": PRINT@421, 
"7Q] QUIT PROGRAM" 

69 ANS=INKEYS: [FANS=""GOTO69 

79 IFANS="Q"GOTO139 

89 IFANS="1"GOTO149 

99 IFANS="2"GOT0229 

199 IFANS="3"GOTO526 

119 IFANS=""4"GOTO769 

128 GOTO6S 

13 GOSUB57$:CLS:END 

149 CLS: PRINT@44,"DISK MENU": PRI 
NT@165,"[1] DIRECTORY OF FIL 
ES": PRINT@229,"(2] LOAD FROM 
DISK": PRINT@293,"[3) SAVE T 


Oooe 
{ FUG 8 


April 


line input statements in lines 240 
through 270 and in Line 280 after the 
BDS=STRS(BD) statement. A line could 
also be added in the printer routine that 
would print a line under the receipt for 
written comments. 


Figure 1 


MENU 
[1] DISK MENU 
[2] 
(3] 
[4] 


[Q] 


ENTER NEW DATA 
EXAMINE 
PRINT RECEIPT 


QUIT PROGRAM 








Figure 2 


DISK MENU 
(1) 
(2) 
(3] 
(M] 
[Q] 
Figure 3 
#921 
JOHN Q. SMITH 


DIRECTORY OF FILES 
LOAD FROM DISK 
SAVE TO DISK 

MAIN MENU 


QUIT PROGRAM 
6/25/86 
AMT. OF ACCOUNT $392.43 
AMT. PAID $259.99 
BALANCE DUE $42.44 


COMMENTS: PART # 35771 


PRESS (M]) FOR MENU 





Figure 4 





AMT. OF ACCOUNT 302.45 
ANT. FRID 253,24 
BALANCE GWE "42. dg_ 


O DISK": PRINT@357,"[M] 

MENU" : PRINT@421,"(Q] 

OGRAM" 

158 IS=INKEYS: IFI$=""GOTO159 

169 IFIS="1"GoTO1199 

17 IFIS="2"GOTO45p 

189 IFIS="3"GOT0379 

199 IFIS="M"GOTO59 

268 IFIS="Q"GOTO139 

219 GOTO159 

228 ‘ENTER DATA ROUTINE 

239 GOSUB579 

249 CLS: PRINT@193,"ENTER RECEIPT 
DATE": PRINT@136,"(EX. 6/25/85)" 
: LINEINPUT" ":DS$:GOSUB 
349: PRINT@329," =-"D$"=":GOS 

UB329: IFIS="N"GOTO249 

259 CLS: PRINT@193,"ENTER RECEIPT 
#": PRINT@136,"(EX. 991) ":LINEIN 
PUT" ">NS$:GOSUB349: PRIN 

Te329," -"NS$"-"; GOSUB329: IFI 
S="N"GOTO259 

269 CLS: PRINT@193,"ENTER RECEIVE 
D OF"; PRINT@134,"(EX. JOHN Q. SM 
ITH) ":LINEINPUT"  ";RO$:GOSUB34 
$:PRINT@329," -"RO$"=": GOSUB 
329: IFIS="N"THEN269 

279 CLS: PRINT@199,"ENTER DOLLAR 
AMOUNT PAID": PRINT@134,"(EX. 259 
.99 OR 499)":LINEINPUT" 

"+ DOS: DO=VAL(DO$) : GOSUB34f: PRINT 
@322," <—-";:PRINTUSING"SS###. ##" 
;DO; : PRINT" =": GOSUB329: IFIS="N"'T 
HEN279 

289 CLS: PRINT@99,"ENTER TOTAL AM 

T. OF ACCOUNT": PRINT@135,"(EX. 3 

$2.43 OR 599) ":LINEINPUT" 


MAIN 
QUIT PR 
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";TAS$:TA=VAL(TAS) : BD=(TA-DO) 

: BDS=STRS (BD) :GOSUB349: PRINT@323 
," =-"ssPRINTUSING"SS####. #4"3TA 
7: PRINT"=-":; GOSUB3 29: IFIS="N"THEN 
289 

298 CLS: PRINT@192,"ENTER COMMENT 
LINE": PRINT@134,"(EX. PART #357 
71)": PRINT@223,")": PRINT@192,"(" 
3: LINEINPUTCS 

368 IFLEN(C$) >3SGOT0369 

319 GOSUB57$:GOTO59 

326 IS=INKEYS: IFI$=""THEN329 

339 RETURN 

349 PRINT@299,"YOU ENTERED-": PRI 
NT@354,"IS THAT CORRECT? (Y/N)": 
RETURN 

359 GOTO59 

369 CLS: PRINT@179,"LINE TO LONG" 
:FOR T=1T0599:NEXTT:GOTO299 

376 "DISK ROUTINE 

389 BD$=STR$ (BD) 

399 CLS: PRINT@166,"HIT <ENTER> T 
O SAVE": PRINT@232,"0R <M> FOR ME 
NU" 

499 IS=INKEYS:IFIS=""GOTO499 

419 IFIS="M"GOTOS59 

429 IFIS=CHRS$ (13) GOT0O449 

436 GOTO499 

4498 GOSUB57$£: CLS: GOSUB589 : GOSUB7 
49:GOSUB579:GOTO5¢ 

458 CLS: PRINT@179,"ENTER FILE #" 
: PRINT@339,"(M] FOR MENU" 

469 PRINT@242,"]":PRINT@236,"["; 
: LINEINPUTNS 

479 Z=LEN(N$) : IFZ>5GOT0459 

489 IFNS="M"GOTO5¢ 
499 CLS: PRINT@168,"LOADING #";NS$ 
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: PRINT@182 , STRINGS (19, 32) 
599 GOSUB57$ : GOSUB589 : GOSUB75$ :G 
OSUB679 

| 519 TA=VAL(TAS) :DO=VAL(DO$) : BD=V 
AL(BD$) 

529 BD=(TA-DO) 

539 CLS: PRINT@1,"#";N$:PRINTG@29, 
D$: PRINT@67, RO$: PRINT@131, "AMT. 
OF ACCOUNT ";:PRINTUSING"SS###. 
##";>TA: PRINT@291,"AMT. PAID 
PRINTUSING"SS###. ##" :DO: PRINT@26 
3,"BALANCE DUE ";:PRINTUSING"$$ 
###.##" ; BD: PRINT@323, "COMMENTS: 
"ecs 

549 PRINT@458,"(M} FOR MENU" 

559 IS=INKEY$: IFIS="M"GOTO59 

569 GOTO559 

579 CLOSE#1: RETURN 

589 OPEN"D", #1,N$,119 

599 FIELD#1, 19 AS XTA$,19 AS XD 
$,19 AS XDO$,19 AS XBD$,39 AS XR 

0$,39 AS XC$,1$ AS XDTS 

699 LSET XTAS=TAS$ 

619 LSET XD$=Dy$ 

626 LSET XDO$=DO$ 

639 LSET XBDS$=BD$ 

649 LSET XROS=RO$ 

659 LSET xc$=C$ 

669 LSET XDTS$=D$ 

679 TAS=XTA$ 

689 DS$=XDT$ 

699 DOS$=XDO$ 

799 BD$=XBD$ 

719 RO$=XROS$ 

72 C$=XC$:RETURN 

739 RETURN 

748 PUT#1;:RETURN 

759 GET#1:RETURN 

769 'PRINTER ROUTINE 

776 CLS:PRINT@133,"DO YOU WANT A 
COPY FOR": PRINT@165,"FOR YOUR R 
ECORDS ALSO?": PRINT@295,"(Y/N) " 
788 PCS=INKEYS$: IFPCS$=""GOTO789 
799 IF PCS="Y" THEN PC=2 

809 IFPCS$="Y"ORPCS="N"GOTO829 
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head ware. 


Normally $246.41 


While they last 


Printers: 


CPB 136 


CONTROL 





PAGE 76 


STOCKTAKING SPECIALS! 


While they last - send a copy 
of this ad to get this specialll 


TEAC FD55F DSDD 80 Track Drives 
with head load solonold to reduce 


$log=—= 
~—L85 


CPA BOA ...cccccccccccccccccccces GAI9.93 
CPB BOP .,..ccccccccccccccccccces 9482.42 
~--- 9707.70 
CoCo Disk Drive - Includes Power Supply, 
Case, Cables, 1.4 DOS, 40 Track DSDD. 
Drive expandable to 2drives ..... $399.00 


Phone for further details 
Ail prices Include Tax 
Please allow for P & P. Bankcard Welcome. 
Dealer enquires welcome. 


enelou 


ENEROY CONTROL INTERNATIONAL PTY. LTO. 
PO Bos 6502 Goodne Oia 4300 

Orsdane AUSTRALIA 

Prone (0)) 268 2455 Teten AAG3778 ENECON 
PO Bor 12183 Wetngton Norn NEW IEALAND 
Prone 4126 462 TWA M2 90138 





Prices subject \o change without notice. 


GOTO789 
CLS: PRINT@236, "PRINTING" 
POKE149, 9: POKE159,41:'1299BA 


849 FORPP=1TOPC 

859 US=CHR$(15):'UNDERLINING ON 

869 DUS=CHRS$(14):'LINING OFF 

879 ES$=CHR$(31) : 'DOUBLEWIDTH/ON 

889 DES=CHRS$ (39) :'D.W./OFF 

899 NOS="NO.";DTS="Date ":RCS="R 
eceived of":DLS="DOLLARS" 

998 ACS="AMT. OF ACCOUNT " 

919 APS=" AMT. PAID " 

929 BDS=" BALANCE DUE " 

939 LFS=STRINGS (2,19) :S$=CHR$ (32 


) 

949 PRINT#-2,U$S;STRINGS (89,32) :S 
TRINGS (2,19) ;DUS$ 

958 PRINT#-2,E$;NO$;DES$;US$;:S$;NS$ 
7S$;DU$;STRINGS (46,32) ;E$;DT$;DE 
$;U$;S$;D$;S$;DU$;LF$ 

969 LR=LEN(RO$) : LS=(47-LR) 

979 PRINT#-2,E$;RC$;DES$;US$;S$;S$ 
7S$;S$;S$;RO$;STRINGS (LS, 32) ;DU$ 
;LF$ 

988 PRINT#-2,U$;STRINGS$ (38,32) ;E 
$;:PRINT#-2,USING"SS###.##";DO;: 
PRINT#-2, DE$;STRING$ (11,42) ;DUS; 
E$;DL$;DE$ 

999 PRINT#-2,U$;STRINGS (25,32) ;D 
US$; STRINGS (28,32) ;"199" 

1996 PRINT#-2,AC$;:PRINT#-2,USIN 
GUaket #4"; TA 

1919 C=LEN(C$) :CL=(32-C) 

1929 PRINT#-2,AP$;U$;: PRINT#-2,U 
SING" ####. ##";DO;: PRINT#-2,DUS;S 
TRINGS (15,32) ;"CMTS ";U$;:C$;STR 
INGS$ (CL, 32) :DUS 

1639 PRINT#-2,U$;BD$; : PRINT#-2,U 
SING" ####. #4"; BD; : PRINT#-2, CHRS ( 
32) 

1949 PRINT#-2,CHRS$(19) :DU$;STRIN 
G$ (43,32) ;ES;"$";DES ; US ; STRINGS ( 
32,32) 

1959 PRINT#-2,U$;STRINGS (88,32) ; 
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DU$ 
1p6p 
1962 
1963 
1965 


197p 
1989 
1999 
1199 
1119 
1129 
1139 
1149 
1159 
1169 
1179 
1189 
1199 
1299 
1219 
1229 





PRINT#-2, STRINGS (19,19) 
IFPC=2GOTO1965 

GOTO1979 
IFPP=1THENPRINT#-2 , STRINGS ( 
38,19) 


NEXTPP 
GOTO59 
CLS: END 
CLS: 'DIRECTORY ROUTINE 
CLEAR 
GOSUB579 

FORZ=3T011 
DSKI$#,17,2,A$,B$ 
X$=A$:GOSUB1199 
X$=B$ : GOSUB1199 

NEXTZ 

GOTO1289 

FORJ=1T0128STEP32 

=R+1 

P$(R,1)=MID$(X$,J,8) 
IFLEFTS (P$(R,1) ,1) =CHR$ (255 


) THENR=R-1:GOTO1289 


123p 


IFLEFTS$ (P$(R,1),1)=CHR$(f)T 


HENR=R-1: GOTO1269 


1249 
1259 
1269 
1279 
1289 
1299 


P$(R, 2) =MID$ (X$,J+8, 3) 


IFP$ (R, 2) <>"DAT"THENR=R-1 
NEXTJ 

RETURN 

FORK=1TOR 

PRINTUSING" ##";K;:PRINT") # 


";PS(K, 1), 


1399 
1319 
1329 
1339 


IFK=R THENPRINT, 

NEXTK 

LCN=489 

PRINT@LCN, "LOAD WHICH FILE 


(M FOR MENU)"; : INPUTP1$ 


1349 
1359 
1369 
1339 
1379 
1389 
1399 


with 43 pge 
32 K 


$ 


IFP1$="M"GOTO149 


P=VAL(P1$) 

IFP<1ORP>R THENLCN=448:GOTO 
FILES=P$(P,1) 

NS=FILES 

GOTO499 ~ 


A*FORTH 
FORTH 
FOR 
COCO 


Redmond 


Manual 


required 


60.00 


FROM 


Australian Rainbow Magazine 
P.0. Box 1742, 
Southport. Qld. 4215. 


John Rednond 
02-85-3751. 


or on order from your 
local Tandy store. 
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Financing: 
The Economic Advantage 


aving been a car salesman for 
H: years and a car rental man- 

ager for another four years, I’ve 
learned a lot about human nature and 
how people spend their money. Folks 
purchasing a new car might think that 
by taking the money out of their savings 
account to pay cash for their purchase 
that they are saving all that interest on 
the loan. Surprise! They’ve actually lost 
money doing it that way. This program 
will show in cold, hard figures which is 
the more economical move. It will also 
give skeptics a printout to take home 
and think about if they are not initially 
convinced after running the program. 

When using Cash vs. Financing, 
input the same dollar amounts and the 
same number of months in each case. In 
other words, compare “apples with 
apples.” (Or should I say “CoCos with 
CoCos.”) If you’re considering a 
$10,000 car and you have that amount 
in the bank, use $10,000 in the financing 
section of the program in order to get 
an honest comparison. 

Naturally, the input for interest will 
vary between savings and financing, but 
use the same number of months in the 
comparison. Let’s go through a sample 
session. For savings amount, input 
$ 10000 (no commas). For savings inter- 
est, let’s use 8.75 (no percent sign 
necessary) and for months, input 48. 
Compound periods in this sample will 
be 2. The program will show you that 
by the end of the 48 month period, your 
nest egg will be worth $14085.49 or a 
gain of $4085.49 in interest. 

This will put you into the finance part 
of the program. Your first input will be 
the finance amount. Again, use $10000. 
For finance interest, use 13.5 (even at 
this higher rate, you’ll be surprised by 
the outcome). For the number of fi- 
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nance months, again use 48 and it will 
show you that your monthly payment 
will be $270.76 or a total of $12996.48 
over 48 months. The interest you will 
have paid in those 48 months is 
$2996.48. 

Comparing this figure with the 
$4085.49 in interest you would have 
earned from the savings account, you 
can see that you’ve saved $1089.01 by 
financing and leaving your nest egg 
alone. If you can find finance rates 
lower than 13.5, then the savings will be 
that much more. 

At this point in the program, if the 
customer has still not been convinced to 
finance the car, the salesman can select 
from three options. Option | is a print- 
out of the comparison. Option 2 is to 
Start over with new figures. Option 3 is 
to end the program. 

Option I, the printout, will ask for the 
customer’s name as well as the sales- 
man’s name. After the salesman inputs 
his name, the program will send the 
information to the printer. (This print- 
out was tailored for the TP-10 printer 
which we have in our showroom, but 
will work with other printers as well.) 
The printout will personalize the hard- 
copy that the customer gets. It also has 
the dealership name and address as well 
as the salesman who serviced him. It’s 
nice to stay fresh in the customer’s 
mind. 

Here is a sample printout from the 
program we just ran. This program need 
not be restricted to automobile pur- 
chases. It can be used on any item you 
like for comparison purposes. 

One last note: I have fictionalized the 
name of the dealership in the printout 
as per my employer’s request, and my 
apologies if there is really someone out 
there by the name of “Joe Average.” 
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Sample Printout 


HOMETOWN DODGE 
1234 NORTH 56TH STREET 
SHEBOYGAN, WI 53981 
(414) 555-4861 
ASK FOR BILL BERNICO 


SAVINGS AMOUNT.... 19999 
SAVINGS INTEREST.. 8.75 % 
SAVINGS MONTHS.... 48 
COMPOUND PERIODS.. 2 
SAVINGS AMOUNT 
AFTER 48 MONTHS... 
INTEREST GAINED... 


14985.49 
4985.49 


FINANCE AMOUNT.... 
FINANCE INT 
FINANCE MONTHS.... 
MONTHLY PMT 
TOTAL INTEREST.... 2996.48 


JOE AVERAGE CAN SAVE $ 189.91 
BY FINANCING THIS VEHICLE 


ASK US FOR ASSISTANCE IN 
ARRANGING A LOAN FOR YOU. 


The listing: CASH 


1B ‘xa 
28 ‘kee 
3 teen 
4B ‘ken 
5G 'kkee 
kak 
7Q thax 
89 CLS: BS=CHR$ (128) 
99 PRINT@43, "advantages" ;BS;"of 
198 PRINT@197,"financing";BS;"vs 
119 PRINT@171,"paying";BS$;"cash 
129 PRINT@299, "COURTESY OF" 


CASH kak 

BY BILL BERNICO *** 
798 MICHIGAN AV. *#s 
SHEBOYGAN, WI **# 
53981 tak 
{414)459-7358 xan” 
kak 


continued on Page 24 
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Forecast your budget, so in the future 


youcan... 


the 
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Juggle Bills, Juggle Bills, 
Juggle All the Way! 


his program, Home Budget 
: Analysis, is used to assist in 
budgeting and forecasting per- 
sonal finances in order to plan and 
adjust cash flow for three future periods 
(paydays). The program allows you to 
enter and update income and expense 
items for each of the three periods. The 
total of income and expenses is calcu- 
lated and displayed for instant analysis 
of cash flow, as items are added or 
updated. The balance is money that has 
not been committed, or over-com- 
mitted, if a negative balance is calcu- 
lated. 

As a period passes, you may shift all 
amounts so the second period becomes 
current and a new third period is 
opened. This allows you to continue 
budgeting for future periods. Also the 
ability is given to save or load a file of 
personal finance data. 


Create New File/Load Existing File 

You are given two options upon 
running the program. Press ‘C’ to create 
a new file or ‘L’ to load an existing file. 
@ Create New File: You are prompted 

to enter the dates of the three future 

periods to be budgeted. Enter each 

period date in the format “MM/ 

DD.” 
® Load Existing File: You are prompt- 

ed to ready the cassette. Press any key 

when ready to load the file. 

Upon completion of entering the 
dates for creation of a new file or 
loading an existing file, the INCOME 
DISPLAY appears. You are now ready 
to begin entry or update of your per- 
sonal finance file. 


Add/Update/Delete Expense 
and Income Items 

Income items are accessed via the 
income display, expense items via the 
expense display. Press ‘N’ to add a new 
item, or “A-H” to update or delete an 
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existing item. Be sure to include all 
known income and expenses that occur 
during each period, for example, gro- 
ceries, car expenses, rent, utilities, 
installment payments, savings, wages 
and other income. 

@ Add Item: A prompt is given to enter 
the DESCRIPTION. A description is 
required for each item entered. You 
are then prompted to enter an AUTO 
AMOUNT. This amount is automat- 
ically entered for each period of the 
item being added. Press ENTER with- 
out an amount if you do not wish an 
auto amount. This function is handy 
when the amount is the same for each 
period. You are now ready to enter 
amounts for the added item (see 
Update). 

@ Update Item: When updating an 
item, the display prompts for the 
period to update, ‘1’, ‘2’ or ‘3’. Enter 
the proper period and a prompt 
appears to enter the AMOUNT. To 
change the description and/or auto 
amount, press ‘D’. A prompt appears 
to enter the new description. You are 
then prompted to enter the auto 
amount. 

@ Delete Item: After selecting the item 
to be deleted, press ‘*’. The item is 
deleted and you are automatically 
returned to the income or expense 
display. 

Press ‘R’ to return to the income or 
expense display. 


Expense and Income Displays 

The income and expense displays list 
the items that represent the total of 
expenses and income. Options are 
available to move between the expense 
and income displays, in addition to 
adding or updating items. Press ‘I’ while 
in the expense display to call the income 
display. The expense display may be 
recalled by pressing ‘X’. 

Scrolling of items is accomplished by 


Australian RAINBOU 


the up/down arrows while in either 
display. The last entry on the screen 
appears at the top when scrolled down 
and vice versa when scrolled up. 

The calculated total of expenses and 
income is shown for each period with 
the balance of uncommitted or over- 
committed amounts. 


Open New Period 

As a period has past, you may delete 
the current period and move all income 
and expenses forward and, therefore, 
open a new period. 

Press ‘O’ while in the expense or 
income display. The function prompts 
you to enter the date of the new period 
in the form “MM/DD.” The program 
automatically shifts all amounts and 
drops the values for the current period. 
If you had entered an auto amount for 
any income or expense item, this 
amount is automatically entered into 
the new period for the item. 


Technical Information 

A maximum of 25 expense items and 
five income items have been imposed. 
Should your budget require more items, 
change the value of EN (expense items) 
and IN (income items) in Line 3000. 


Logic Flow 
Frequent Subroutines 
10 INKEY 


12 prompt alarm 

IS blank two lines 

20 top line 

25 bottom line 

30 screen load expenses 

45 screen load income 
calculate and print totals 


Other Subroutines 


100 accept desc/ default 
120 delete expense 
130 delete income 
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140 accept amount 1000 initialize and start PD$(3) period dates 
150 basic screen 1100 menu TE(3) period total expense 
170 item screen 2000 PCLEAR TI(3) period total income 
185 item bottom query Variables PB(3) period balance 
190 file full EDS$(EN) expense description EN maximum expense records 
300 expense display EA(EN,3) expense amount (preset to 25) 
400 expense item update DE(EN) _ expense default IN maximum income records 
500 income display LE last record expense (preset to 5) 
600 income item update IDS(IN) income description IE$ flag E=expense, I=income 
700 shift period IA(IN,3) income amount I(8) item addressability 
800 LOAD and SAVE DA(IN) income default IX$(8) item addressability 
900 new file LI last record income I$(8) item addressability 
97 | 198 PRINT@449,""; :GOSUB15: PRINT@ 
98 'OTHER SUBROUTINES 449," file full - press enter";; 
99 ' GOSUB1$ : RETURN 
199 PRINT@448,"";:GOSUB15: PRINT@ 297 ' 
449,"";:GOSUB12: LINEINPUT" DESC: 298 'EXPENSE ITEM UPDATE 
";XX$:IFXX$=""" THENSOUND1,1:GOTO 299 ! 





The listing: HOMEBDGT 


1 GOTO2p 99 
7? 


8 'FREQUENT SUBROUTINES 

9 q 

19 KS=INKEYS: IFK$S=""THENGOTO1LSEL 
SEK=VAL(K$) : RETURN 

12 FORSS=1T02:SOUND229,1:NEXTSS: 
RETURN 

13 FORSS=1T09:SOUND22@,1:NEXTSS: 

RETURN 

15 PRINTTAB(1)STRINGS$(39," "):PR 
INTTAB(1) STRINGS (39," ") ;:RETURN 
29 PRINTTAB(1) STRINGS (39, CHRS$(14 
)) :RETURN 

25 PRINTTAB(1) STRINGS (39, CHR$ (13 
1)) ;: RETURN 

39 IFLE=9 THENPRINT@163,"enter"B 
BS;"expense"BBS"items"; : SOUND299 
,1:RETURN 

31 PP=64:PX=PP: IX=1:FORX=I(1) TO 
(I(1)+6) : PRINT@PP+8,STRINGS (32,C 

HR$(143))?; 

35 IFX<(EN+1) THENPX=PP: PRINT@PP 

+8, 1IX$ (IX) ;:PX=PX+1: PRINT@PX, USI 

NG"% "EDS (X) 3: PX=PX+7: FORY= 
1T03: IFEA(X,Y)<>§ THENPRINT@PX,U 
SING N2$;EA(X,Y) 3: PX=PX+8:NEXTY: 
ELSEPX=PX+8 : NEXTY 

49 I(IX)=X: IX=IX+1: PP=PP+32: NEXT 

X: SOUND299,1: RETURN 

45 IFLI=$ THENPRINT@163,"enter"B 

BS;"income"BBS"items"; :SOUND299, 

1: RETURN 

46 PP=64:PX=PP:IX=1:FORX=I(1) TO 
(I(1)+6) :PRINT@PP+9, STRINGS (32,C 

HRS (143));3 

59 IFX<(IN+1) THENPX=PP: PRINT@PP 

+9, IX$(IX) 3: PX=PX+1: PRINT@PX, USI 

NG"$% %":IDS (X) 3: PX=PX+7: FORY= 

1TO3: IFIA(X,Y)<>f§ THENPRINT@PX,U 

SING N2$;IA(X,Y) 7: PX=PX+8:NEXTY: 
ELSEPX=PX+8 : NEXTY 

55 I(IX) =X: IX=IX+1: PP=PP+32: NEXT 

X: SOUND29%, 1: RETURN 

69 FORX=1T03:TE(X)=$: FORY=1TOLE: 

TE (X)=TE(X)+EA(Y,X) :NEXTY,X: FORX 

=1T03:TI(X)=9: FORY=1TOLI:TI(X)=T 
I(X)+IA(Y¥,X) :NEXTY, X: FORX=1T03:P 
B(X) =TI(X) -TE(X) :NEXTX 

65 PRINT@288,CHR$ (149) }:GOSUB2Q: 
PRINT@329, "expense"; : PP=329: FORX 

=1T03:PP=PP+8: PRINT@PP, USINGN2$; 

TE (X) ; :NEXTX 

76 PRINT@352,"income"; BBS; :PP=35 
2: FORX=1T03: PP=PP+8: PRINT@PP, USI 

NGN2$;TI(X) 7 :NEXTX 

75 PRINT@384,"balance";:PP=384:F 
ORX=1T03 : PP=PP+8 : PRINT@PP, USING 

N2$;PB(X) ; :NEXTX 

89 PRINT@416,CHR$(131) ;:GOSUB25: 

RETURN 
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1PPELSEPRINT@132, "eee NXXS" RaeaN 


, 
182 PRINT@448,""; :GOSUB15;: PRINT@ 
449,"AUTO AMOUNT"; :GOSUB12: INPUT 
XX 
195. IFIE$="E" THENEDS (I) =XX$: DE( 
I)=XX:IFEA(I,1)=$ ANDEA(I,2)=9 A 
NDEA(I,3)=§ THENFORX=1T03:EA(I,X 
) =DE(I) :NEXTX: RETURN : ELSERETURN 
118 ID$(I)=xx$:DI(I)=XX:IFIA(I,1 
)=9 ANDIA(I,2)=$ ANDIA(I,3)=9 TH 
ENFORX=1T03: IA(I,X)=DI(I) :NEXTX: 
RETURN: ELSERETURN 
129 IFI=LE THENED$(I)="":DE(I)=9 
: FORZ=1T03:EA(1I,Z)=9:NEXTZ: LE=LE 
-1: ELSEFORX=I TOLE-1:IFED$(X+1) 
<>"" THENEDS (X) =ED$ (X+1) : EDS (X+1 
)=""s DE(X)=DE(X+1) :DE(X+1)=9: FOR 
Z=1T03:EA(X,Z)=EA(X+1,2Z) sEA(X+1, 
Z)=9:NEXTZ: NEXTX: LE=LE-1: ELSENE 
XTX 
125 RETURN 
139 IFI=LI THENID$(I)="":DI(I)=9 
>FORZ=1 TO3:IA(I,Z)=9$:NEXTZ: LI=L 
I-l: ELSEFORX=I TOLI-1: IFID$ (X+1 
)<>"" THENIDS (X)=ID$(X+1) : IDS (X+ 
1)="":DI(X)=DI(X+1) : DI (X+1)=9:FO 
RZ=1TO3: IA(X,2Z)=IA(X+1,2Z) :IA(X+1 
,2)=9:NEXTZ:NEXTX: LI=LI-1: ELSEN 
EXTX 
135 RETURN 
149 PRINT@448,""; :GOSUB15: PRINT@ 
449,"PERIOD"K" AMOUNT": :GOSUB12:I 
NPUTXX: IFIES="E" THENEA(I,K)=XX 
ELSEIA(I,K)=XX 
145 RETURN 
159 CLS: PRINT"; ;sIFIES="E" THENP 
RINTSTRINGS (32, CHR$ (242) ); ELSEP 
RINTSTRINGS (32, CHRS$ (162) ); 
155 PRINT@16, "display"; BB$;:PRIN 
T@32,BBS;"period>"; : PRINT@42,USI 
NGN3$;PD$(1) ;: PRINT@59, USINGN3$; 
PD$ (2) }: PRINT@58 , USINGN3$;PD$ (3) 
;:IFIES="E" THEN16$ ELSE165 
169 PRINT@7, BBS; "expense"; BBS; :P 
RINT@449,"a—-h NEW EXPENSE iNCO 
ME sSAVE";:PRINT@481,"  <ARROWS> 
OPEN NEW PERIOD"; : RETURN 
165 PRINT@8, BBS;"income";BBS$;:PR 
INT@449,"a-h nEW INCOME ExXxPENS 
E sSAVE";:PRINT@481," <ARROWS> 
OPEN NEW PERIOD"; : RETURN 
179 CLS: PRINT@193," PERIOD 
AMOUNT ";:PRINT@227,STRING 
$(19,CHR$ (131) ) ;:PRINT@242,STRIN 
G$(8,CHR$(131));:PRINT@385, "AUTO 
AMOUNT: "; : PRINT@416, ""; :GOSUB25 
175 PRINT@32,""; :GOSUB29: PRINT:I 
FIES="E" THENPRINTTAB(5) "EXPENSE 
ITEM UPDATE"; ELSEPRINTTAB (5) "IN 
COME ITEM UPDATE" 
188 GOSUB25: RETURN 
185 PRINT@449,""; :GOSUB15: PRINT@ 
449," UPDATE PERIOD <l> <2> <3 
> GESC *DELETE nEW ITEM rET 
URN" ; : RETURN 
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360 IES="E":1I(1)=1 
395 PP=32:GOSUB159 : GOSUB6$ : GOSUB 


319 I=9:GOSUB19 
315 IFKS$=CHR$(1f) THENI(1)=I(1)+ 
6:IFI(1)>LE THENI(1)=LE:GOSUB39: 
GOTO3 1 : ELSEGOSUB39 : GOTO319 
326 IFKS="4" THENI(1)=I(1)-6:1F 
I(1)<1THEN I(1)=1:GOSUB39:GOTO31 
§ ELSEGOSUB3$#:GOTO319 
325 IFKS$="N" THENGOSUB499:GOTO39 
5:ELSEIFK$="I" THEN5$9 ELSEIFKS$= 
"S" THENIO=2:GOSUB8#9:GOTO399 EL 
SEIFKS="0" THENGOSUB7#$ : GOTO399 
339 FORX=1T08: IFK$=1I$(X) THENI=I 
(X) :NEXTX: ELSENEXTX 
335 IFI=9 THEN349 ELSEIFI>ENTRIE 
S THEN349 ELSEIFED$(I)="" THEN34 
~ ELSEGOSUB4{9:GOTO395 
349 SOUND1,1:GOTO319 
397 ! 
398 'EXPENSE ITEM UPDATE 

? 


499 SOUND299,1 

495 IFK$="N" THENLE=LE+1:I=LE:IF 
LE>EN THENLE=EN:GOSUB199 : RETURN 

419 GOSUB17$: PRINT@132,"*** "EDS 
(I)" ***"> > pp=259: FORX=1T03: PRIN 
T@PP,X;:PRINT@PP+2, ">"; : PRINT@PP 
+4, USINGN3$;PD$(X) ;: PRINT@PP+15, 
USING N2$;EA(I,X) }: PP=PP+32:NEXT 
X: PRINT@492,USINGN2$;DE(I); 

415 IFKS="N" THENGOSUB199:K$=""; 
GOTO41f: ELSEGOSUB185 

428 GOSUB1$:IFK$="R" THENRETURN 

ELSEIFK$="*" THENGOSUB129: RETURN 
s ELSEIFKS="D" THENGOSUB1$9:GOTO4 
PPELSEIFK$="N" THENGOTO499 

425 IF K>§ AND K<4 THENGOSUB149: 
GOT0419 

439 SOUND1,1:GOT0O429 

497 ! 

498 ‘INCOME DISPLAY 

499 ' 

599 IES="I":I(1)=1 

595 PP=32:GOSUB15f$ : GOSUB6f : GOSUB 
45 

519 I=9:GOSUB19 

515 IFKS$=CHR$(19) THENI(1)=I(1)+ 
6:IFI(1)>LI THENI(1)=LI:GOSUB45: 
GOTO519: ELSEGOSUB45 : GOTO519 

529 IFKS="4" THENI(1)=I(1)-6:IF 

I(1)<1THEN I(1)=1:GOSUB45:GOTO51 
SELSEGOSUB45: GOTO519 

525 IFKS="N" THENGOSUB69:GOTO59 
§:ELSEIFK$="X" THEN3$9 ELSEIFKS= 
"S" THENIO=2:GOSUB89%:GOTO399 EL 
SEIFKS$="0" THENGOSUB7 $$ :GOTO599 

539 FORX=1T08: IFKS$=#I$(X) THENI=I 
(X) :NEXTX : ELSENEXTX 

535 IFI=$ THEN549 ELSEIFI>9 THEN 
549 ELSEIFID$(I)=""" THEN549 ELSE 
GOSUB699:GOTO5£5 

549 SOUND1,1:GOTO519 - 

597 ' 

598 'INCOME ITEM UPDATE 
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599 ! 

699 SOUND299,1 

695 IFKS="N" THENLI=LI+1:I=LI:IF 
LI>IN THENLI=IN:GOSUB199: RETURN 

619 GOSUB179:PRINT@132,"*** "IDS 
(I)" *#k*> spp=259: FORX=1T03: PRIN 
T@PP,X;:PRINT@PP+2, ">"; :PRINT@PP 
+5 ,USINGN3$;PD$(X) }: PRINT@PP+15, 
USING N2$;IA(I,X) 7: PP=PP+32:NEXT 
X: PRINT@492,USINGN2$;DI(I) ; 

615 IFKS="N" THENGOSUB199:KS=""": 
GOTO619: ELSEGOSUB185 

629 GOSUB19:IFKS="R" THENRETURN 

ELSEIFKS$="*" THENGOSUB139: RETURN 
: ELSEIFKS$="D" THENGOSUB1£9 : GOTO6 
PPELSEIFKS$="N" THENGOTO6SP 

625 IF K>~ AND K<4 THENGOSUB149: 


GOTO619 

63 SOUND1,1:GOTO629 
697 ! 

698 'OPEN NEW PERIOD 


699 ! 

729 CLS:SOUND29,1 

795 PRINT@129,STRINGS$ (39, CHRS$(14 
$)):PRINTTAB(3) "SHIFT AND OPEN N 
EW PERIOD":PRINT TAB(1) STRINGS (3 
@,CHR$ (131) ) 

716 GOSUB12:PRINT@292,"HIT ANY K 
EY TO CONTINUE OR r 
ETURN";:GOSUB19$:IF K$="R" THENRE 
TURN 

715 PRINT@288,"":GOSUB15, :PRINT@ 
289,"ENTER NEW PERIOD DATE (MM/D 
D)";: PRINT@335,""'; :GOSUB12: LINEI 
NPUT"" > xXX$: PRINT@288,""; sGOSUB15 
: PRINT@294,"NEW PERIOD FOR ";Xx$ 
: PRINTTAB(6)" NOW BEING OPENED"; 
729 FORX=1TOLE:EA(X,1)=EA(X,2):E 
A(X,2)=EA(X,3) :EA(X,3) =DE(X) :NEX 
TX: FORX=1TOLI: IA(X,1)=IA(X,2) :IA 
(X,2)=IA(X,3) :IA(X,3)=DI(X) :NEXT 
X: PD$ (1) =PD$ (2) : PD$(2)=PD$ (3) :PD 


$(3)=XX$: RETURN 

797 ! 

798 'I/O ROUTINES 
' 


799 
899 CLS:SOUND299,1 
895 IFIO=1 THENIO$="LOAD" ELSEIO 


continued from Page cel 


138 PRINT@363,"HOMETOWN DODGE 
149 PRINT@484,"(HIT ANY KEY TO C 
ONTINUE) "; 

158 EXEC 44539 

169 A=S:I=9: T=: Y=9: V=0: L=B: P=G: 
X=9:N=9: K=9:0=9: U=9: E=9 

17% CLS 

188 INPUT"SAVINGS AMOUNT......"7 
A 

19% INPUT"SAVINGS INTEREST...."; 
I: I=1/169 

288 INPUT"SAVINGS MONTHS......"3 
T:T=T/12 

218 INPUT"COMPOUND PERIODS...."; 
Y 

226 V=A*(1+I/Y)%* (Y*T) : V=INT (V#*19 
$+.5)/1P9p 

238 PRINT"AFTER";T*12;"MONTHS... 
0 O'GV 

249 L=V-A 

259 PRINT" INTEREST GAINED.....$ 
"eL 

268 PRINTSTRINGS (32,"-") ; 

278 INPUT" FINANCE AMOUNT......";3 
P 

288 INPUT"FINANCE INTEREST...."; 
X3:X=X/199 

296 INPUT"FINANCE MONTHS......"; 
N 

3QP K=P*(X/12) /(1-(1+(X/12) ) *-N) 
319 K=INT(K*199+.5)/199 

328 PRINT"MONTHLY PAYMENT.....$ 
WeK 

338 O=K*N 

349 O=INT(0*199+.5)/199 

358 PRINT"TOTAL OF PAYMENTS...$" 
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S="SAVE" 

819 PRINT@64,""; :GOSUB29: PRINT@1 

95,10$;" FILE"; :PRINT@128,"";:GO 

SUB25 

815 GOSUB13: PRINT@193, "POSITION 

TAPE...":PRINT" READY CASSETTE. . 

.":PRINT" PRESS ANY KEY TO CONTI 

NUE" ; GOSUB19 : PRINT@192, "": GOSUB1 

5:GOSUB15:IFIO=2 THEN845 

829 '*---LOAD FILE---* 

825 SOUND229,1:PRINT@193," LOADI 

NG BUDGET FILE"; 

839 OPEN"I", #-1, "BUDGET" : SOUND22 

$,1 

835 INPUT#-1, LE, LI: FORX=1TOLE: IN 

PUT#-1,ED$ (X) , DE(X) : FORY=1T03: IN 

PUT#-1,EA(X,Y) :NEXTY, X: FORX=1TOL 

I: INPUT#-1, ID$ (X) , DI(X) : FORY=1T0 

3: INPUT#-1, IA(X,Y) :NEXTY, X: FORX= 

1T03 : INPUT#-1, PD$ (X) :NEXTX 

849 CLOSE#-1:RETURN 

845 SOUND229,1 

859 PRINT@193," SAVING BUDGET FI 

LE" ; :MOTORON : FORX=1 T0689 : NEXTX 

855 OPEN "O", #-1, "BUDGET" : SOUND2 

26,1 

869 PRINT#-1, LE, LI: FORX=1TOLE: PR 

INT#-1,ED$(X) , DE(X) : FORY=1T03:PR 

INT#-1,EA(X,Y) :NEXTY, X: FORX=1TOL 

I: PRINT#-1, ID$(X) , DI (X) :FORY=1T0O 

3:PRINT#-1, IA(X,Y) :NEXTY, X: FORX= 

1T03 : PRINT #-1, PDS (X) :NEXTX 

865 CLOSE#-1:RETURN 

897 ! 

898 'CREATE NEW FILE 

899 ! 

998 CLS:SOUND299,1 

995 PRINT@33,"":GOSUB29: PRINT: PR 

INTTAB(6)"ENTER PERIOD DATES":GO 

SUB25 

919 PP=369: FORX=1T03: PRINT@214," 

"> :GOSUB15: PRINT@161,"PERIOD #"; 
+: PRINT@227,"";:GOSUB12: LINEINP 

UT"ENTER DATE (MM/DD): ";PD$(X): 

PRINT@PP, "PERIOD ";X"-=> ";:PRIN 

TUSINGN3$;PD$(X) : PP=PP+32:NEXTX: 

GOTO59p 

997 ! 


368 U=INT((O-P) *199+.5)/199 
379 PRINT"TOTAL INTEREST......$ 


388 E=INT((L-U) *199+.5)/199 

398 PRINT"AMOUNT SAVED 

498 PRINT"BY. FINANCING........$ 
418 PRINT@482,"pRINTOUT sTART O 
eND"; 

429 AS=INKEYS: IF AS=""THEN 429 
43f IF AS="S"THEN 169 

449 IF AS="P"THEN 479 

459 IF AS="E"THEN 19 

469 GOTO 429 

479 CLS: INPUT"CUSTOMER'S NAME";C 


489 INPUT"SALESMAN'S NAME";SNS$ 
498 CLS: PRINT@232,"....PRINTING. 


599 PRINT#-2," HOMETOWN D 


ODGE 
516 PRINT#-2," 1234 NORTH 56T 


H STREET 

529 PRINT#-2," SHEBOYGAN, WI 
5381 

539 PRINT#-2," (414) 555 

-4861 


546 PRINT#-2,"ASK FOR "eSNS 

559 PRINT#-2 

568 PRINT#-2,"SAVINGS AMOUNT.... 
WeA 

579 I=1*1p99 

589 PRINT#-2,"SAVINGS INTEREST.. 
WeT sy 

599 T=T*12 

688 PRINT#-2,"SAVINGS MONTHS.... 
"eT 

616 PRINT#-2,"COMPOUND PERIODS.. 
Wey 
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998 ‘INITIALIZE PROGRAM 

999 ! 

1999 CLEAR599:SOUND299,1:EN=25:1 
N=5 : DIMED$ (EN) : DIMEA(EN,3) : DIMPD 
$(3) :DIMIA(IN,3) :DIMI$(8) :DIMI(8 
) :DIMDE (EN) :DIMID$ (IN) : DIMDI (IN) 
: DIMIX$ (8) : DIMTE(3) : DIMTI(3) : DIM 
PB(3) 

1995 LE=9: LI=$: FORX=1TO8 : READIX$ 
(X) ,I$(X) ,I(X) :NEXTX | 

1919 DATA a,A,1,b,B,2,c,C,3,q,D, 
4,e,E,5,f,F,6,9,G,7,h,H,8 

1915 NOS="##"SN2S="#HHHF. HH-"SN1S 
="+HHHH.##"S LDS="S FS" SNIS=H"E 
%": BBS=CHRS (128) 

1939 ' 

1199 SOUND299,1 

1195 CLS: PRINT@99, "home"; BBS; "bu 
dget";BBS$;"analysis": PRINT: PRINT 
" BY: GLEN DUFUR": PRINT" Cc 
OPYRIGHT (C) 1985" 

1119 PRINT: PRINTTAB(4)"1OAD EXIS 
TING BUDGET FILE": PRINT: PRINTTAB 
(4)"CREATE NEW BUDGET FILE": PRIN 
T@424,"SELECT OPTION"; 

1115 IFXX$=CHR$(161) THENXX$=CHR 
$ (162) :XY$=CHR$ (164) :XZ$=CHRS (16 
6): ELSEXX$=CHR$ (161) :XY$=CHR$(1 
68) :XZ$=CHRS (169) 

1129 PRINT@65,CHR$ (138) ;:PRINTST 
RING$ (22, XX$) ;CHRS$ (133) }: PRINT@1 
29,CHR$ (138) ;STRINGS$(22,XY$) ;CHR 
$(133) 7: K$=INKEYS$: PRINT@97, CHRS ( 
138) ;XZ$; s PRINT@119, XZ$;CHRS$ (133 


) 

1125 PRINT@438," ";:IFKS="" THEN 
1115 ELSEIFK$="L" THENIO=1:GOSUB 
899:GOTO59f: ELSEIFKS="C" THENOG 


113f PRINT@438,K$;:SOUND1,5:GOTO 
1115 

1298 'CSAVE "BUDGET" ROUTINE 
1295 FORX=1T02:MOTORON: FORY=1T06 
$f: NEXTY : MOTOROFF: CSAVE" BUDGET" : 
NEXTX: FORX=1T05 : SOUND299,1:NEXT: 
END 

1999 'PCLEAR ROUTINE 

2099 PCLEAR1:GOTO1P999 ~~ 


628 PRINT#-2,"SAVINGS AMOUNT" 
638 PRINT#-2,"AFTER";T;"MONTHS.. 
. “ :V 

649 PRINT#-2,"INTEREST GAINED... 
“ °L 

659 PRINT#-2 

669 PRINT#-2, "------------------ 
679 PRINT#-2 

688 PRINT#-2,"FINANCE AMOUNT.... 
“ °P 

699 X=xX*199 

709 PRINT#-2, "FINANCE INT....... 
" eX" 

718 PRINT#-2,"FINANCE MONTHS.... 
1 :N 

729 PRINT#-2 ’ "MONTHLY PMT. eoeoevveve 
ly 7K 

739 PRINT#-2,"TOTAL OF PMTS..... 
" 70 

748 PRINT#-2,"TOTAL INTEREST.... 
“ °U 

759 PRINT#-2 

769 PRINT#-2,CN$;" CAN SAVE $";E 
779 PRINT#-2,"BY FINANCING THIS 
VEHICLE 

789 PRINT#-2 

799 PRINT#-2,"ASK US FOR ASSISTA 
NCE IN 

899 PRINT#-2,"ARRANGING A LOAN F 
OR YOU. 

819 PRINT#-2: PRINT#-2: PRINT#-2:P 
RINT#-2: PRINT#-2: PRINT#-2 

828 CLS: PRINT@481,"aNOTHER PRINT 
YrESTART eND"; 

839 AS=INKEY$: IFA$=""THEN839 

849 IF AS="A"THEN 599 

859 IF AS="R"THEN 169 

869 IF AS="E"THEN 19 

8798 GOTO 839 rc 
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of Early Amortization 


aying off a mortgage early to get 
Pp: quicker equity buildup is the 

best idea I (a homeowner) have 
heard of in a long time. It used to cost 
a little extra each month to reach this 
goal, but a new kind of mortgage is just 
now taking hold in the United States 
that can make the process almost pain- 
less. Quicker mortgage payoff will save 
you a fortune in interest rates and can 
take years off the repayment schedule. 
It also has two strategic uses. 

A young couple who pays off their 
mortgage early will then have a huge 
amount of equity on tap. This is also a 
method of forced savings; all of these 
gains are tax deferred. A quick payment 
mortgage is also suitable for middle- 
aged home buyers who want to own 
their home free and clear by the time 
they retire. The new way to faster home 
ownership is through a bi-weekly mort- 
gage payment plan. The loan is amor- 
tized as if it were going to last for 30 
years, but instead of paying once a 
month, one half the payment is made 
every two weeks. This method of repay- 
ment leads to the equivalent of 13 
monthly payments rather than the usual 
12. This may not sound like it would 
make a lot of difference, but the amount 
of money and time saved is astounding, 
as you will see when comparing Option 
1 with Option 2. Since this method of 


There are two parts to the Mortgage 
Planner. The first part is a loan calcu- 
lator. If you are planning a home pur- 
chase, the calculator figures your prin- 
cipal and interest payments. It returns 
the amount financed, amount of pay- 
ment, interest rate and number of 
months required to retire the loan (see 
Figure 1). If you know the amount you 
want to pay per month but don’t know 
the amount you can finance to arrive at 
your target payment, the calculator can 
help. When asked the amount to fi- 
Nance, just press ENTER; you are then 
asked the amount per month (enter 
what you want to pay per month) and 
the calculator gives the amount to 
finance and arrives at your target pay- 
ment. You can go through as many 


By Edward R. Carson 


calculations as you wish. The last 
amount calculated is automatically 
forwarded to the Mortgage Planner. It 
is not necessary to go to the calculator. 
If you have an existing mortgage, go 
directly to the Planner. 

The Mortgage Planner has four op- 
tions to choose from. Each is a different 
method of repayment. Three of these 
options can save thousands of dollars 
and many years off the mortgage. The 


Figure 1 


AMOUNT OF THE LOAN $ 36698. 


NO. OF MONTHS 362 
INTEREST RATE 1g % 


MONTHLY PAYMENTS $ 315.93 





Option 1 


PRINCIPAL PAID 


298.94 
422.92 
668.13 
939.62 
1238. 
1568. 
1934. 
2337. 
2783. 
3275. 
3819. 
4419. 
5983. 
5816. 
6626. 
7521. 
8599. 
9691. 


Nm ON NNR 


18897. 
12149. 
13611. 
15237. 
17934. 
19918. 
21219. 
23631. 
2636. 
29261. 
32525. 


repayment is not available with all 
lenders, two other options are included 
that can have the same effect and are 
accepted by most lenders. 


Edward R. Carson is a head operator 
at the Timken Company in Columbus, 
Ohio. His interests encompass compu- 
ters and baseball. He is married and has 
three sons. 


1986. 
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TOTAL INTEREST TOTAL PRINCIPAL 


$ 36999. 29 


$ 77733.28 
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WOE~wIaUD UD} 


INT. PAID 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 


3564.58 

7872.38 
19517.47 
13893.28 
17192.57 
29497.32 
23528.68 
26546.89 
29451.14 
32229.51 
34868.83 
37354.54 
39679.57 
41799.15 
43728.67 
45413.47 
46853.69 
48914.61 
48867.39 
49379.49 


Option 2 


PRINCIPAL PAID 


PAN NMA ADMIN NIMND NNW 


542.46 
1141.69 
1893.63 
2534.85 
3342.69 
4234.89 
5228.56 
6399.39 
7512.17 
8849.84 

19398.55 

11929.88 

13728.89 

15699.34 

17884.85 

29299.99 

22966. 99 

25912.92 

29166.36 

32761.39 


i 


TOTAL INTEREST 
$ 49615.88 





The listing: MORTGAGE 


1 Y=1 

6 CLS 

ll X=32 

16 CLS 

21 Z$="SAVE" 

26 PRINT@X, Z$ 

31 X=X+19 

36 IFX=382 THEN 41 ELSE 26 

41 FORT=1T089:NEXTT 

46 Y#Y+1: IFY=5THEN51lELSE6 

51 FORT=1T0599:NEXTT 

56 CLS: PRINT@164,"the mortgage p 
lanner" 

61 PRINT@236, "by" 

66 PRINT@294,"edward r carson" 
71 GOSUB1181 

76 GOTO1921 

81 CLS 

86 PRINT: PRINT: PRINT "YOU HAVE F 

OUR OPTIONS WITH THIS PORTION OF 
THE PROGRAM..." 

91 PRINT: PRINTTAB(7) "THEY ARE AS 
FOLLOWS..." 

96 PRINT: PRINT: PRINT"HIT ANY KEY 
TO CONTINUE" 

191 KS$#INKEY$:IFKS=""THEN 191ELS 

F196 

196 CLS:PRINT"1) CONTINUE TO MAK 

E NORMAL MONTHLY PAYMENTS 


111 PRINT: PRINT"2) MAKE 1/2 OF N 
ORMAL PAYMENT EVERY 14 DAYS. 


116 PRINT: PRINT"3) LUMP SUM (IN 

EXCESS OF NORMAL PAYMENT) ONCE 

EACH YEAR..." 

121 PRINT: PRINT"4) INCREASE MONT 
HLY PAYMENT BY (X) AMOUNT... (X 
) AMOUNT USED TO REDUCE BALANCE 

ON A MONTHLY BASIS" 

126 PRINT"HIT ANY KEY TO CONTINU 
BE" 
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TOTAL PRINCIPAL 


$ 36999. pf 





131 K$#INKEY$: IFK$=""(HEN 131ELS 
E 136 

136 CLS: PRINT@75, "options" 

141 PRINT: PRINTTAB(19)"1 2 3 

4 iy 
146 
et" 
151 


PRINT: PRINTTAB(19) "select on 


PRINTSTRINGS (32, "#") 

156 PRINT"1= NORMAL PAYMENT" 

161 PRINT: PRINT"2= 1/2 NORMAL PA 
YMENT" 

166 PRINT: PRINT"3= LUMP SUM" 

171 PRINT: PRINT"4= EXCESS MONTHL 
y" 

176 INPUT S 

181 ON S GOTO 231,546,821,841 
186 CLS:PRINT@195, "what is your 
normal...." 

191 PRINT@263,"monthly payment.. 


196 INPUT NP 

261 CLS: PRINT@193,"what is your 
interest rate...." 

296 PRINT@258,"input as per exam 

ple <.f§959 >" 

211 INPUT AI 

216 CLS: PRINT@192,"what is your 
current balance..." 

221 INPUT CB 

226 GOTO 81 

231 CLS: PRINT@269,"DO YOU WANT A 
PRINTOUT OF..." 

236 PRINT@324,"YEARLY ANALYSIS.. 


241 PRINT: PRINTTAB(11)" ( Y/N )" 
246 K$=INKEYS: IFK$S=""THEN246 

251 IFK$="Y¥"THEN 421ELSEIFKS="N" 
THEN256 

256 CLS: PRINT@196,"calculating t 
otals..." 

261 PRINT@269,"please stand by.. 


POKE 65495, 
DP=39.41:Z=1 

DI=AI/365 

IN=DI*CB*DP 

=NP-IN 

PB=PB+P+EP 
CB=CB-P 
391 TP=TP+NP+EP 
TI(S)=TI(S)+IN 
CB=CB-EP 
IF CB<=$THEN326ELSE321 
IFZ=M THEN831ELSEZ=Z+1:GOTO2 


326 TI(S)=TI(S)-CB:PB=PB+CB 

CLS: PRINTTAB(12) "OPTION ";S 
336 PRINT: PRINT" INTEREST PAID";: 
PRINTTAB (21) ;: PRINTUSING"S###4### 
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choice of on-screen or printer displays 
is given. The printer routine gives a 
year-by-year printout of interest paid, 
principal, paid outstanding balance, 
total payments, and years and months 
required to retire the loan. There is an 
on-screen bar graph of interest paid at 
all options. Any calculated screen can 
also be dumped to the printer by press- 
ing the ‘P’ key. I found this easier than 
writing down all the information on a 
scratch pad. The amount of money that 
can be saved with just a little extra each 
month literally amazes me, as I am sure 
it will you. 

(Any questions you have about Mort- 
gage Planner may be directed to Mr. 
Carson at 7600 Condit Road, Center- 
burg, OH 43011, phone 614-625-6936. 
Please include an SASE when writ- 
ing.) OC 


##";TI(S) 

341 PRINT"PRINCIPAL PAID";:PRINT 

TAB(21) 3: PRINTUSING"S#4### Ht. #4"; 
PB 

346 PRINTTAB(21)STRINGS$(19,"-") 
351 PRINT" TOTAL PAID"; : PRINTTAB ( 
21) 7: PRINTUSING"S######. ##";TP 
356 Z=2/12 

361 PRINT: PRINT"YEARS TO RETIRE 

LOAN.. "3:PRINTUSING"##.#";Z 

366 PRINT"NORMAL PAYMENT........ 
"::PRINTUSING"S####. #4" s3NP 

371 PRINT"INTEREST RATE......0..% 
iL sAL;: *%" 

376 IFS=3GOSUB1426ELSEIFS=4GOSUB 

1431 

381 POKE 65494,9 

386 CS$=INKEYS$: IFCS=""THEN386 

391 IFCS="P"THENGOSUB 1381ELSE 3 

96 

396 IF S=4 THEN GOSUB 1246:GOTO 
491 

491 CB=PB: PB=$:Z=9:TB=$: TP=9: LS= 

P:EP=9 

496 PRINT: PRINT"DO YOU WANT THIS 
OPTION AGAIN" 

411 PRINTTAB(12)"( Y/N )"s: INPUT 

C$: IFCS="N"THEN 136 ELSE 416 


416 TI(S)=9:GOTO 136 

421 CLS: PRINT@264,"now printing" 
426 PRINT#-2,TAB(39)"OPTION ":S 

431 IFS=3GOSUB851 

436 IFS=4GOSUB856 

441 PRINT#-2,"YEAR";TAB(6) "INT.P 


AID";TAB(18) "PRINCIPAL PAID"; TAB 
(35) "TOTAL PAYMENT" ;TAB(51) "OUTS 
TANDING BALANCE" 

446 DP=39.41:Z=1:H=12:Y=1 

451 DI=AI/365 

456 IN=DI*CB*DP 

P=NP-IN 

PB=PB+P+EP 

CB=CB-P 

TP=TP+NP+EP 

481 TI(S)=TI(S)+IN 

CB=CB-EP 
IFCB<=$THEN511ELSE496 

IFZ=H THEN836ELSEZ=Z+1:GOTO4 


IFCB<STHENCB=9 

596 PRINT#-2,Y;:PRINT#-2,TAB(6); 
: PRINT #—-2 ,USING"S###t###. ##";TI(S 
) ;: PRINT#-2,TAB(18) ;: PRINT#-2,US 
ING"S##HHHH. ##" > PB; s PRINT#-2, TAB 
(35) : PRINT#-2,USING"S######. #4" 
;TP;: PRINT#-2,TAB(51) ;: PRINT#-2, 
USING" S###4##. ##"3CB: Y=Y+1:H=H+1 
2:GOT0456 

511 TI(S)=TI(S)-CB: PB=PB+CB 
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516 PRINT#-2,"" 

521 PRINT#-2,TAB(5) "YEARS" ;TAB(1 
2)"TOTAL INTEREST" ;TAB(28) "TOTAL 
PRINCIPAL" ;TAB(45) "TOTAL PAYMEN 
TS " 

526 PRINT#-2,"" 

531 Z=Z/12 

536 PRINT#-2,TAB(5) : PRINT#-2,USI 
NG" ##.#"3Z;: PRINT#-2,TAB(12)3:PR 
INT#-2,USING"S######. ##" 7 TI(S) 3: 
PRINT#-2,TAB(28) ;: PRINT#-2,USING 
"SH#H#HEH. #4"; PB; : PRINT#-2,TAB(45 
) ss PRINT#-2, USING"S#### #4. HH" STP 
541 CB=PB:TP=9:TI=$: PB=$:EP=9: LS 

=$:GOTO 136 

546 CLS: PRINT@269,"DO YOU WANT A 
PRINTOUT OF..." 

551 PRINT@324, "YEARLY ANALYSIS... 


" 
556 PRINT: PRINTTAB(11)" ( Y/N )" 
561 KS=INKEY$:IF K$=""THEN561 
566 IFK$="Y"THEN716ELSEIFKS="N"T 
HEN581 


576 '° 

581 CLS: NP=NP/2:DP=14: Z=1:H=26:Y 
=1 

586 POKE65495,9 

591 PRINT@196,"calculating total 
s..." 


596 PRINT@269,"please stand by.. 


691 DI=AI/365 

696 IN=DI*CB*DP 

611 P=NP-IN 

616 PB=PB+P 

621 CB=CB-P 

626 TP=TP+NP 

631 TI(S)=TI(S)+IN 

636 IFCB<=$THEN646ELSE641 

641 Z=Z+1:GOTO696 

646 TI(S)=TI(S)-CB: PB=PB+CB 

651 CLS: PRINTTAB(11)"OPTION ";S 
656 PRINT: PRINT" INTEREST PAID";: 
PRINTTAB (21) 3: PRINTUSING"S####4# 
-##";TI(S) 

661 PRINT"PRINCIPAL PAID";:PRINT 

TAB(21) 3: PRINTUSING"S######. #4"; 
PB 

666 PRINTTAB(21)STRINGS$(19,"-") 
671 PRINT"TOTAL PAID"; : PRINTTAB ( 
21) ::PRINTUSING"S#####4. #4" 3 TP 
676 2=2/24 

681 PRINT: PRINT"YEARS TO RETIRE 
LOAN.. "3: PRINTUSING"##.#"32Z 

686 PRINT"1/2 NORMAL PAYMENT.... 
. "ss PRINTUSING"S###. ##" > NP 

691 PRINT"INTEREST RATE.....200- 
1] sAI; "3" 

696 POKE65494,9 

781 CS=INKEY$: IFCS="""THEN 791 
766 IFCS$="P"THEN GOSUB 1381 ELSE 
711 

711 NP=NP*2:TP=9:TI=9: CB=PB: PB=9 
sGOTO 136 

716 CLS: PRINT@264,"NOW PRINTING" 
721 PRINT#-2,TAB(39) "OPTION";S 
726 PRINT#-2,""YEAR";TAB(6)"INT.P 
AID";TAB(18) "PRINCIPAL PAID";TAB 
(35)"TOTAL PAYMENTS" ;TAB(51) "OUT 
STANDING BALANCE" 

731 NP=NP/2:DP=14: Z=1:H=26:Y=1 
736 DI=AI/365 

741 IN=DI*CB*DP 

746 P=NP-IN 

751 PB=PB+P 

756 CB=CB-P 

761 TP=TP+NP 

766 TI(S)=TI(S)+IN 

771 IF CB<=STHEN 786ELSE776 

776 IFZ-H=STHEN781ELSEZ=Z+1:GOTO 


781 PRINT#-2,Y;:PRINT#-2,TAB(6) ; 
sPRINT#=-2, USING"S#### es. #4"; TI(S 

::PRINT#-2,TAB(18) ;}: PRINT#-2,US 
ING"S## HH Hee. ##" 7 PB; s PRINT#-2, TAB 
(35) ;:PRINT#-2,USING"S### ttt. tH" 
*TP::PRINT#-2,TAB(51) ;: PRINT#-2, 
USING"S###Hee. #4" 3 CBs Y=Y+1: Z2Z+1 
sH=H+26:GOTO 741 
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786 TI(S)=TI(S)-CB: PB=PB+CB 

791 PRINT#-2,"": PRINT#-2, "YEARS" 
;TAB(7) "TOTAL INTEREST" ;TAB(23) " 
TOTAL PRINCIPAL";TAB(49)"TOTAL P 
AYMENTS" 

796 Z=2/24 

881 PRINT#-2,"": PRINT#-2,USING"# 
#.#":Z3 3 PRINT#-2,TAB(7) ;: PRINT#- 
2,USING"S### HHH. ##";TI(S) 7: PRINT 
#-2,TAB(23) ;: PRINT#-2,USING"S### 
###.##";PB;: PRINT#-2,TAB(49) 3:PR 
INT#—-2,USING"S### Ht #. #4" 5 TP 

896 NP=NP*2:CB=PB:TP=9:TI=$: PB=p 
811 PRINT"HIT ANY KEY TO CONTINU 


816 KS=INKEYS$: IFKS$=""THEN816ELSE 


821 CLS: PRINT@195,"amount of lum 
p sum payment":M=12 

826 INPUT LS:GOT0231 

831 TP=TP+LS : CB=CB-LS : PB=PB+LS :Z 
=Z+1:M=M+12:GOTO281 

836 CB=CB-LS: PB=PB+LS : TP=TP+LS : Z 
=Z+1:M=M+t12:GOTO 591 

841 CLS: PRINT@192,"amount of ex 
cess payment": INPUT EP 

846 GOTO 231 

851 PRINT#-2,TAB(25) "LUMP SUM AM 
OUNT ";:PRINT#-2, USING"S#### 244" 
;LS: RETURN 

856 PRINT#-2,TAB(22) "AMOUNT OF E 
XCESS PAYMENT ";:PRINT#-2,USING" 
S####. ##"; EP: RETURN 

861 CLS: PRINT@164,"how much will 
you finance": INPUTPV 

866 CLS: PRINT@164,"how many mont 
hs": INPUTM 

871 CLS: PRINT@163,"what is the i 
nterest rate": INPUTK 

876 IFK<1THEN GOTO 951 

881 K=K/12:K=K/199 

886 C=(1+K) 4M:C=C-1 

891 D=(K+1) “M: D=D*K 

896 C=C/D 

991 IFPV=STHENGOTO956 

996 A=PV/C 

911 K=K*12:K=K*199 

916 CLS: PRINT@96,"AMOUNT OF THE 

LOAN": PRINT@118,USING"S###### . ## 
“ : PV 

921 PRINT@162,"NO. OF MONTHS": PR 

INT@183,M 

926 PRINT@226,"INTEREST RATE": PR 

INT@246,K;"%" 

931 PRINT@299,"MONTHLY PAYMENTS" 
: PRINT@3 99, USING"S####. #H"A 

936 SS=INKEYS: IFSS=""THEN936 

941 IF S$="P"THENGOSUB 1381 ELSE 
996 

946 GOTO 996 

951 CLS: PRINT@228,"PLEASE STATE 

INTEREST RATE AS A VALUE GR 

EATER THAN 1": INPUTK:GOTO881 

956 CLS: PRINT@162,"what are the 

monthly payments": INPUTA 

961 PV=A*C:GOTO 911 

966 GOSUB 1381 

971 PRINT#-2,"" 

976 PRINT#-2,"AMOUNT OF LOAN";:P 

RINT#-2 ,USING"S####H##. ##" 7 PV 

981 PRINT#-2,"MONTHS REQUIRED TO 
RETIRE LOAN"; :PRINT#-2,M 

986 PRINT#-2,"INTEREST RATE";K;: 
PRINT#-2 , "%" 

991 PRINT#-2,"MONTHLY PAYMENTS"; 
: PRINT#-2,USING"S####. HH" SA 

996 CLS: PRINT@224,"DO YOU WANT A 
NOTHER CALCULATION" 

1991 PRINTTAB(11)"(Y/N)" 

1996 S$=INKEY$: IFSS=""THEN1996 
1911 IFS$="Y" THEN 861 ELSE 1916 
1916 CB=PV: K=K/199:AI=K:NP=A:GOT 
O 81 

1821 CLS: PRINT@164,"DO YOU WANT 
INSTRUCTIONS": PRINT@285,"( Y/N ) 
tT] 


1826 KS=INKEYS$: IFKS=""THEN 126 


1931 IF K$="Y"THEN 1441 ELSE 115 
6 
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1936 CLS: PRINT"IF YOU ARE PLANNI 


NG A HOME PURCHASE..THE LOA 
N CALCULATOR CAN DETERMINE YOU 
R MONTHLY PAYMENTS...IF YOU 


KNOW WHAT YOU CAN AFFORD PER MO 
NTH, BUT DONT KNOW THE AMOUNT Y 
OU CAN FINANCE TO ARRIVE AT THIS 

PAYMENT.... " 

1941 PRINT"THEN loan calculator 

CAN HELP..." 

1946 PRINT: PRINT"HIT ANY KEY TO 

CONTINUE" 

1951 K$=INKEYS: IFK$=""THEN1#51EL 
SE 1956 

1956 CLS: PRINT"WHEN YOU ARE ASKE 

D HOW MUCH YOU WILL FINANCE...JU 
ST HIT <ENTER> YOU WILL THEN BE 
ASKED THE AMOUNT OF MONTHLY 

PAYMENT.ENTER WHAT YOU WANT TO 
PAY PER MONTH. THE PROGRAM WILL 
THEN RETURN THEAMOUNT YOU CAN FI 
NANCE TO GIVE 
1961 PRINT"YOU THE PAYMENTS YOU 
WANT" 

1966 PRINT: PRINT: PRINT"HIT ANY K 
EY TO CONTINUE" 

1971 KS$=INKEYS: IFK$=""THEN1971EL 
SE 1976 
1976 CLS:PRINT"AFTER FINDING OUT 

THE AMOUNT YOUCAN FINANCE. RUN 
THE" 

1981 PRINTTAB(7) "mortgage saving 
s" 

1986 PRINT"PORTION OF THIS PROGR 
AM." 

1991 PRINT"IT WILL SHOW THREE WA 
YS YOU CAN SAVE THOUSANDS OF DOL 
LARS AND MANY YEARS OFF YOUR M 
ORTGAGE." 

1996 PRINT"YOU CAN HAVE A YEARLY 

PRINTOUT OF ANY OR ALL OPTIONS 
-IT WILL SHOW, BY YEAR, INTEREST 

PAID, TOTAL PAYMENT,CURRENT BALA 
NCE AND YEARS PAID. IT WILL T 
HEN GIVE TOTALS OF ALL ITEMS. 
1191 PRINT: PRINT"HIT ANY KEY TO 
CONTINUE" 

1196 KS$=INKEY$: IFKS=""THEN 1196E 
LSE 1111 
1111 CLS:PRINT"IN ORDER TO SEE A 
N ON SCREEN COMPARISON OF INT 
EREST PAID ON ALL OPTIONS, Y 
OU MUST RUN OPTION 4 LAST." 
1116 PRINT: PRINT"WHEN THERE IS N 
O CURSOR ON A CALCULATED SCRE 
EN YOU CAN GET A PRINTOUT BY PRE 
SSING THE LETTER p ANY OTHER KEY 

WILL CONTINUE THE PROGRAM" 
1121 PRINT: PRINT"HIT ANY KEY TO 
CONTINUE" 

1126 K$=INKEYS$: IFKS=""THEN1126EL 
SE1131 
1131 CLS:PRINT"THE AMOUNTS GIVEN 

IN THIS PROGRAM SHOULD NO 
T BE CONSTRUED TO BE EXACT AMOUN 
TS YOU WILL PAYOR SAVE..... BUT 
SHOULD BE USED ONLY AS A GUIDE T 
O REPRESENT YOUR PAYMENTS AND 

SAVINGS" 

1136 PRINT"OPTION 2 OF THIS PROG 
RAM MAY NOTBE ACCEPTABLE TO YOUR 

LENDER PLEASE CHECK WITH THE 
M BEFORE ATTEMPTING THIS METHO 
D. 

1141 PRINT"IF YOU ARE CONSIDERIN 
G A HOME PURCHASE THIS IS ANA 
TTRACTIVE WAY TO SET UP YOUR LO 
AN PAYOFF...... AS YOU WILL SEE. 
1146 PRINT"HIT ANY KEY TO CONTIN 


i 
1151 K$=INKEYS$: IFKS=""THEN1151EL 
SE1156 
1156 CLS:PRINT"DO YOU WANT TO GO 
TO THE LOAN CALCULATOR OR TO 
MORTGAGE PLANNER" 
1161 PRINT: PRINT"IF YOU CHOOSE T 
HE CALCULATOR PORTION OF THE 
PROGRAM THE LAST AMOUNTS US 
ED WILL BE AUTO- MATICALLY BE EN 
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TERED INTO THE 
R" 

1166 PRINT: PRINT"PRESS <C> FOR C 
ALCULATOR AND <M> FOR MORTGAGE P 
LANNER" 

1171 SS=INKEYS:IFSS$=""(HEN 1171 
1176 IF SS$="C"THEN 861 ELSE 186 
1181 FORL=1924T01955 

1186 POKEL,191:NEXTL 

1191 L=1956 

1196 POKEL,191 

1291 L=L+32 

1296 IFL=1594+32THEN1211ELSE1196 
1211 FORL=1594T01535 

1216 POKEL,191:NEXTL 

1221 L=1535 

1226 POKEL,191 

1231 L=L-32 

1236 IFL=1955 THEN1241ELSE 1226 
1241 FORT=1T0799*2:NEXTT: RETURN 
1246 CLS:PRINT"DO YOU WANT TO CO 
MPARE INTEREST ON ALL FOUR OPTIO 
NS ve 

1251 PRINT: PRINTTAB(11) "(Y/N)" 
1256 KS=INKEYS: IFK$=""THEN1256 
1261 IF K$="Y" THEN GOTO1591ELSE 
RETURN 

1266 CLS:S=1 

1271 TI(S)=TI(S) *19999 

1276 PRINT: PRINT"OPTION";S;: PRIN 
TUSING"S######. #4"; TI(S) 

1281 S=S+l :IF S=5 THEN 1286 ELS 
E 1271 

1286 IFTI(2)<=TI(3)THEN1291ELSE1 
296 

1291 IFTI(2)=STHEN1296 ELSE IFTI 
(2) <=TI (4) THEN13@1ELSE1296 

1296 IFTI(3)=$THEN 1311 ELSEIFTI 
(3)<=TI(4) THEN 1396 ELSE1311 
1381 TI(6)=TI(1)-TI(2) :GOTO1316 
1386 TI(6)=TI(1)-TI(3) :GOTO1316 
1311 TI(6)=TI(1)-TI(4) :GOTO1316 
1316 PRINT: PRINT"YOU CAN SAVE "; 
:PRINTUSING"S###HH ft. ##" 2 TI (6) 
1321 KS=INKEYS: IFK$S=""THEN1321 
1326 IFK$="P"THEN GOSUB 1381 ELS 
E 1331 

1331 PRINT: PRINT"PRESS <R> TO RE 
VIEW OPTIONS AND RUN PROGRAM AGA 
IN" 

1336 PRINT: PRINT"PRESS ANY OTHER 
KEY TO END" 

1341 KS$=INKEYS: IFK$=""THEN1341 
1346 IFKS="R"THEN 1366 ELSE 1351 
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1351 CLS: PRINT@299,"happy saving 
Wy 


1356 END 

1361 GOSUB 1181 

1366 S=1 

1371 TI(S)=9: PB=9:Z=$: TB=$: TP=9: 

LS=$: EP=9 : Y=9:S=S+1:C2=9 

1376 IF S=4+1 THEN 1156 ELSE 137 

1 

1381 ZZ=9 

1386 FORXX=1924T01535 

1391 YY=PEEK (XX) :Z2Z=ZZ+1 

1396 PP=YY AND 127 

1491 IF PP>95 THENPP=PP-64 

1486 PRINT#-2,CHRS$ (PP) ; 

1411 IF ZZ=32 THEN PRINT#-2:22=9 
1416 NEXT XX 

1421 RETURN 

1426 PRINT"LUMP SUM AMOUNT...... 
. “";:PRINTTAB(21) ;:PRINTUSING"S# 
###. ##"; LS: RETURN 

1431 PRINT"EXCESS PAYMENT....... 
";:PRINTTAB(21) ;: PRINTUSING"S ### 
- ##";EP: RETURN 

1436 CLS 

1441 CLS: PRINT"HERE'S THE BEST I 

DEA TO COME ALONG IN QUITE A 

WHILE: PAY OFF YOUR MORTGAGE FAS 

TER,IN ORDER TO GET A QUICKER 

EQUTIY BUILDUP IN YOUR HOUSE. 
1446 PRINT"IT USED TO COST A LIT 

TLE MORE EACH MONTH TO REACH 

THIS GOAL. BUT A NEW KIND OF MOR 

TGAGE THAT IS JUST TAKING HOLD I 

N THE U.S. CAN MAKE THE PROCESS 

ALMOST PAINLESS. 

1451 PRINT" FASTER MORTGAGE PAYME 

NTS WILL SAVE YOU A FORTUNE IN 
INTEREST RATES. 

1456 PRINTTAB(19)"HIT ANY KEY" 
1461 KS=INKEY$: IFKS="""THEN1461 E 
LSE 1466 

1466 CLS:PRINT"THE NEW WAY TO FA 

STER HOME OWNERSHIP IS THROUGH A 


BI-WEEKLY PAYMENT PLAN. YOU 
R LOAN IS AMORTIZED AS IF I 
T WERE GOING TO LAST FOR 38 YE 
ARS. BUT... INSTEAD OF PAYING 


ONCE A MONTH, YOU MAKE 1/2 OF 
THE MONTHLY" 
1471 PRINT"PAYMENT EVERY TWO WEE 
KS. THIS SCHEDULE LEADS TO THE 


EQUIVALENTOF 13 MONTHLY PAYMENT 
S EVERY 


YEAR RATHER THAN THE 


reflects data through a specified month. See Exhibit 7. 
8) List Chart of Accounts 


USUAL 12." 

1476 PRINT"THIS MAY NOT SOUND LI 

KE MUCH OF A CHANGE. BUT ITS EFF 

ECT IN CUTTING THE TIME AND 

COST OF ANYMORTGAGE IS ASTOUNDIN 

G." 

1481 K$=INKEY$:IFK$=""THEN1481 E 
LSE 1486 | 

1486 CLS:PRINT"THIS METHOD OF RE 
PAYMENT IS option 2.YOU WILL 
SEE HOW MUCH CAN BE SAVED WITH 
THIS OPTION WHEN: YOU COMPARE 
INTEREST PAID ON ALL OPTIONS." 
1491 PRINT: PRINTTAB(1$)"HIT ANY 
KEY" 

1496 KS=INKEY$:IF KS$=""THEN 1496 


1596 FOR L=1924 TO 1955 
1511 POKE L,175:NEXT L 
1516 L=1956 
1521 S=1:xX=9 
1526 X=49 
1531 POKE L,X 
1536 L=L+64 
1541 X=X+1 
1546 IF X=53 THEN 1551 ELSE 1531 
1551 FOR L=128f TO 1311 
1556 POKE L,175 
1561 NEXT L 
1566 FOR L=1$25 TO 1289 STEP 32 
1571 X=175 
1576 POKE L,X:NEXT L 
1581 PRINT@291,"X 1 5 19 15 
26 25 39" 
1586 PRINT@32f,"INTEREST = X TIM 
ES $19,f99" 
91 S=1:xX=9 
1596 L=1958+X 
1691 TI(S)=TI(S)/1PP99 
1696 F=FIX(TI(S) ) 
1611 FORL=L TO L+F 
1616 POKEL,191 
1621 NEXTL 
1626 X=X+64 
1631 S=S+l:IF S=4+1 THEN 1641 EL 
SE 1596 
1636 POKEL,191 
1641 PRINT@384,"HIT <C> TO CONTI 
NUE PROGRAM " 
1646 PRINT@416,"ANY OTHER KEY WI 
LL END PROGRAM" 
1651 KS=INKEY$:IF KS$=""THEN1651 
1656 IFKS$="C"THEN 1266ELSE 1351 








6) List Month Actual vs. Budget 
Provides a summarized listing of account versus budget 
amounts for a chosen month. A difference (variance) 
between actual and budget is shown. Credit (-) amounts in 
the variance column are unfavorable (over budget) while 
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HOUSE MORTGAGE 
INSURANCE 

BANK CARDS 
ELECTRICITY 
AUTO PAYMENT 
GROCERIES 
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MISCELLANEOUS 


Onan UF WD 







debit variances are favorable (under budget). See Exhibit 
6. 

7) List YTD Actual vs. Budget 
Provides the same information as Selection 5, except it 
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Allows for a listing of your chart of accounts. This is a handy 
reference listing. See Exhibit 8. 

9) Return to Main Program 
This option returns you to the main program, Exptrakr, to 
continue other activities. 

10) End Session 
Select this option if you wish to terminate the program. 

Although this set of programs offers various options for 
use in budgeting and tracking expenses, enhancements such 
as displaying all account detail expenditures for a year or 
allowing for more transactions in a month can be made. It 
is hoped that the programs are helpful and create an interest 
in expanding their usefulness. May all of your expenditures 
be small. 


















(Editor's Note: This program runs to six pages of 
code. In the interest of providing you with as much 
information as possible, we have decided to exclude 
the listing from the magazine. 

The program of course is available on Australian 
Rainbow on Tape for this month. G.) 
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BASIC TRAINING 





A Simple Technique 








for Creating Animation 


By Joseph Kolar 





nimation gives any CoCo 
A ssh program a lot of pizazz 

with the illusion of movement. 
The technique of creating animation 
seems beyond the capability of the 
newcomer to CoColand. It is not the 
formidable project that it appears to be. 

The good news is that the beginner 
need not be overwhelmed by animation 
creation. He can do it with a minimum 
of artistic talent. Today, we are going to 
make like we are Rembrandts, and do 
some simple but satisfying animation. 
Using artistic license, we will create a 
“stick bird.” We will take this bird, set 
it in flight and give it a chance to soar 
on our screen. We will create various 
stick shapes to add variety and give the 
appearance of graceful flight. 

Look at Listing 1 and key in lines 10 
and 1000. PCLS3 gives us the back- 
ground blue sky upon which the bird is 
highlighted. Key in lines 20 to 27, the 
eight forms of the bird we will use in our 
effort to animate. They are called by the 
variables assigned them. The reason we 
use various forms of the bird is to create 
the illusion of a change in the bird as 
it wheels, soars or just flaps its wings. 
If we use just one shape throughout (one 
variable), the bird looks stiff and its 
flight stilted. 

Key in Line 30. All the birds are 
displayed using the DRAW statement. 
The color, horizontal and vertical loca- 
tions are included within quote marks. 
The desired bird shape is selected by 
picking the desired variable and added 
with the good old concatenation 
marker, ‘+’. Now RUN and you should be 
suitably unimpressed to see what is 
supposed to be a bird. Press BREAK and, 
one at a time, substitute the other 
variables in Line 30 to see the so-called 
birds in our repertoire. After you have 
seen them all, replace the original 
variable, BS. 

Keep in mind that there are many 
ways to develop animation. The follow- 
ing system is somewhat unwieldy, but 


lends itself admirably for the purpose of 
this tutorial. 

Run the program and note that we 
place a bird, in color C2, at both a 
horizontal and vertical location of 10. 
The bird (B$ in this case), has the left 
wing “up” and the right wing in a 
horizontal plane. At this time, also note 
that in lines 40 through 350, the color 
(C2) is redundantly included in every 
DRAW statement. In Listing 1 only the 
first C2 in Line 30 is required to main- 


tain the same color of the bird. CoCo 
knows that C2 is desired in all the 


subsequent DRAW lines. At a later stage 
in our artistic endeavors, it will be 
necessary to insert C2 in all of the DRAW 
lines in this listing. To save a lot of time 
and monotonous editing later on, we 
will put them in as we proceed. 

At this stage, we will place the 
various-shaped birds at locations we 
deem either logical or interesting, one at 
a time, ever increasing the number of 
birds in the flight plan. Press BREAK, 
key in Line 40 and RUN. You will see a 
second bird form on the screen (A$), 
with both wings in the “up” position. We 
moved it over to the right five units, to 
15 on the horizontal, and 10 units down 
on the vertical. We now have two birds 
on the screen. 

For the purpose of this tutorial, we 
will move either zero, five or 10 units 
from a previous location. This creates 
a smooth transition from one location 
to the next. 

Press BREAK, key in Line 50 and run. 
The same ‘V’ bird is flying to the right. 
Comparing lines 40 and 50 in the listing, 
you can verify that we moved the bird 
10 units to the right. Press BREAK, key 
in Line 60 and ryn. You can see the same 
bird heading to the right. 

Don’t get excited if the birds overlap 
on the screen. It will all be sorted out 
later. At this stage, we are plotting the 
flight path and want to see every shape 
and its location as we create it. This way 
you can locate a desired shape at the 


location you feel is right. If you don't 
like the shape or location, it can be 
altered now without disturbing future 
additions to the flight plan. You won’t 
have to dissect your program and wear- 
ily rearrange it later. 

We are so creative that we plot our 
animation program directly on the 
screen. However, you may use graph 
paper if you wish to determine the 
shapes and locations of the birds. 

Press BREAK, key in Line 70 and run. 
Here I promptly violated my own rule 
and dropped the bird, B$, 15 units. I had 
a down draft in mind, which I imagined 
might cause the bird to drop more than 
usual and change directions by going 
five units to the right. 

Press BREAK, key in Line 80 and run. 
Here the bird, ES, is wheeling to the 
right and down; press BREAK again. 

If you have difficulty viewing a shape 
that is superimposed over a previous 
shape, temporarily mask the previous 
line with a REM marker. RUN to see if it 
is what you intended, then remove the 
REM marker from the previous line. At 
this point, key in each program line one 
at a time, and check to see what shape 
you added where. 

We have completed our first phase: 
creating, locating and displaying each 
bird. Now that we have created each 
bird in our tableau, we have to make 
them vanish. Beginning with the bird at 
Line 30 through the last one at Line 350, 
we will erase them. LIST 30 and add +5 
to Line 30 to create the “erase” line. 
Thus, all program lines used to erase the 
birds will end in ‘5’. Key in 35, the line 
number, and copy the data appearing in 
Line 30 that you have on the screen 
changing only the digit (2) in C2 to ‘3’. 
Nowrun. C3 is the same color as PSCL3. 
The bird is still, invisible and effectively 
erased. 


If you care to check this out, tempor- 
arily change PCLS3 to PCLS2 in Line 10 
and RUN. See? Restore Line 10 to its 
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Original state. 

Press BREAK and LIST4@. Create 
Line 45 and copy the scoop in Line 40, 
making the desired color change. Pro- 
ceed line by line, every once in a while 
pausing to RUN and make sure you have 
erased all the birds. If some residue 
remains on the screen, you made a boo- 
boo in copying! When you check, you 
will be excited to see the vestiges of a 
bird in flight, if ever so fleetingly. 

When you have finished the second 
phase and check out your work, you 
should get a fleeting glimpse of the bird 
in motion and end up with a blank, blue 
display. 

Obviously, we must create pauses 
between the creation and disappearance 
of each bird so ordinary mortals can 
observe the flight. The third phase 
determines the length of time each bird 
is visible. We will use a pause routine to 
accomplish this feat: FOR Z= 1 TO x: 
NEXT, where ‘X’ is some value between 
75 and 200. We will use increments of 
25, so for *X’ we will use the following 
values: 75, 100, 125, 150, 175 and 200 
to keep it simple and under control. 

After you get the idea, you can sub- 
stitute your values for the chosen ones 
in the listing to make it fly the way you 
want it to fly. First, let me give you the 
system we will use in this tutorial. 

Type in LIST 30-40. We list two lines 
to see how far the bird moved. We note 
that the bird moved 10 units down and 
five units to the right. We compare 
either Line 30 or 35 to Line 40. We will 
place the pause line immediately follow- 
ing the creation line (Line 30). Each 
pause line will be numbered by incre- 
menting the creation line by +1 and the 
erase line by +5. We will try 100 as the 
length of the pause. Key in 31 FOR 
Z2=1T0100:NEXT and run. You can’t see 


much! Press BREAK, LIST4@-S5@ and 
let’s make this pause line shorter in 
duration by using 75. Key in 41 FOR 
2=1T07S:NEXT and run, then press 
BREAK and LIST50-6@. We'll use 100. 
Key in 51 FOR 2=1T0100:NEXT. 

Follow the same procedure using 150 
in Line 61, 100 in Line 71 and 75 at both 
lines 81 and 91. RUN and observe the 
movement. Press BREAK and adjust it to 
suit yourself. It is your bird! Make it fly 
as you would imagine it should fly. Vary 
the time lapse, preferably a higher figure 
for a large location displacement and a 
shorter lapse for a small movement, but 
do it from one line to the next in a 
methodical manner, ensuring that all 
previously determined time pause lines 
are satisfactory. You may compare the 
pauses you chose with the ones in 
Listing 2. 

You may want the movement to be 
quicker so it looks even more natural. 
If so, lower the value of each pause line 
by 25 or 50 units. For that matter, you 
may prefer to substitute other shapes 
(bird variables). Be my guest! When this 
phase of the program is completed and 
all the pauses are set, you may want to 
change Line 1000 (1000 GOTO19). 


Since many of your pause lines are 
repetitious, this is an ideal occasion to 
use GOSUB. For instance, add 40@ FOR 
Z=1TO75:NEXT:RETURN and change 
lines 41, 81, 91, 141, 221, 231, 241, 251, 
261, 281, 291, 301, 311, 321 and 341 to 
GOSUB4@@. You will have to put ina line, 
360 GOTO19@ or 360 GOT01002, to walk 
around the GOSUB routine. Ideally, the 
GOSUB should be at the end of the 
program, for example, Line 2000. How- 
ever, using 400 instead of 2000 saves 
typing one extra zero and whatever 


to typing mistakes. Naturally, you can 
make other GOSUB lines to accommo- 
date frequently-used pause lines. 

OK, what have we wrought? Nothing 
much! Just a bunch of lines flapping 
across the screen. But, you learned a lot 
quite painlessly. Let us recap: 

1) A picture, design or shape must be 
created. It can be elaborate or as mind- 
lessly simple as our bird. After it is 
created and put into a variable form, it 
can be called using DRAW. Alternate 
shapes should be created in anticipation 
of need, but they can be created as 
required and added to the list of shapes. 

2) It must be located at the desired site 
on the screen in a color other than the 
background. 

3) It must remain on the screen for a 
certain length of time. 

4) It must be erased by creating the 
same design and in the exact location 
but using the background color so it 
appears to vanish. 

5) The same picture or a variant, 
again created and called as a variable in 
a DRAW statement, can be placed in a 
newly selected location. Repeat steps 
two through four. Suppose you made a 
pastoral scene in the blank space re- 
served under the bird? Or the outline of 
a few buildings? 

Now that you know how to make a 
bird fly around, you can use the same 
technique to produce your own crea- 
tion. 

As an added attraction, Listing 3 uses 
SOUND as a timer and has a skyline 
thrown in to show how to enhance the 
animation. You can modify your tuto- 
rial program by inserting lines 11-13, 
modify Line 1000 and change all pause 
lines to SOUND lines. If you don’t care 
for my sounds, make up your own. 


error that third zero might generate due 





Listing 1: BIRDS 


@ 'LISTING1 
PMODE3,1: PCLS3:SCREEN1, 9 
AS="F6E6" 
BS="F6R6" 
CS="R6E6" 
DS="E6F6" 
ES="F12" 
FS="E12" 
GS="R12" 
HS="R6F6" 
DRAW" C2BM19,16"+B$ 


DRAW"C2BM15, 26"+A$ 
DRAW"C2BM25,26"+A$ 
DRAW"C2BM35,29"+A$ 
DRAW"C2BM49,35"+B$ 
DRAW"C2BM59,4f"+ES$ 
DRAW" C2BM69, 45"+BS 
DRAW" C2BM79, 45"+A$ 
DRAW"C2BM75,55"+A$ 
DRAW"C2BM85, 6f"+A$ 
DRAW"C2BM99, 76"+A$ 
DRAW"C2BM95,75"+C$ 
DRAW"C2BM119,99"+D$ 
DRAW"C2BM129,99"+D$ 
DRAW"'C2BM139,95"+D$ 
DRAW"C2BM142,95"+c$ 
DRAW"C2BM159,95"+FS$ 
DRAW"C2BM149,89"+A$ 
DRAW"C2BM139,75"+A$ 
DRAW"C2BM129,76"+A$ 
DRAW"C2BM129, 69"+A$ 
DRAW"C2BM129, 59"+A$ 
DRAW"C2BM125,45"4+B$ 
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DRAW"C2BM129,40"+E$ 
DRAW"C2BM125, 35"+E$ 
DRAW"C2BM139,25"+A$ 
DRAW"C2BM135,26"+A$ 
DRAW"C2BM149,15"+4+A$ 
DRAW"'C2BM145,15"+cC$ 
DRAW"C2BM145,18"+G$ 
DRAW" C2BM159,16"+H$ 
DRAW"C2BM169,19"+D$ 
DRAW"C2BM169,5"+D$ 
1ff9 GOTO1LPPP 


Listing 2: FLIGHT 1 


Q '<LISTING2> 

1 'CREATED BY J. KOLAR, 1985 
19 PMODE3,1:PCLS3:SCREEN1, 9 
26 AS="F6E6" 

21 BS="F6R6" 





CS="R6E6" 
DS="E6F6" 

ES="F12" 

FS="E12" 

GS="R12" 

HS="R6F6" 
DRAW"C2BM19,19"+B$ 
FOR Z=1TO199:NEXT 
DRAW"C3BM19,16"+B$ 
DRAW"C2BM15,29"+A$ 
FOR Z=1T0O75:NEXT 
DRAW"C3BM15,26"+A$ 
DRAW"C2BM25,29"+A$ 
FOR Z=1 TO 169:NEXT 
DRAW"C3BM25,26"+A$ 
DRAW"C2BM35,20"+A$ 
FOR Z=1 TO 159:NEXT 
DRAW"C3BM35,29"+A$ 
DRAW"C2BM49,35"+BS 
FOR Z=1TO199:NEXT 
DRAW"C3BM498,35"+BS 
DRAW"C2BM56,46"+ES 
FORZ=1T075:NEXT 
DRAW" C3BM5$ ,48"+ES$ 
DRAW" C2BM6£ ,45"+BS 


FOR Z=1TO 75:NEXT 
DRAW"C3BM69,45"+B$ 
DRAW"C2BM7#,45"+A$ 
FOR Z=1T0159:NEXT 
DRAW"C3BM79,45"+A$ 
DRAW"C2BM75,55"+A$ 
FOR Z=1T0125:NEXT 
DRAW"C3BM75,55"+A$ 
DRAW" C2BM85, 69"+A$ 


FOR Z=1 TO 125:NEXT 


DRAW"C3BM85, 66"+A$ 
DRAW" C2BM99, 70"+A$ 
FOR Z=1T075:NEXT 

DRAW"C3BM99, 76"+A$ 
DRAW"C2BM95,75"+C$ 
FOR Z=1T0175:NEXT 
DRAW"C3BM95,75"+C$ 


DRAW"C2BM119 , 98"+D$ 


FOR Z=1TO199:NEXT 


DRAW"C3BM119 ,99"+D$ 
DRAW"C2BM129,99"+D$ 


FOR Z=1T0199:NEXT 


255 
262 
261 
265 
279 
271 
275 
289 
281 
285 
299 
291 
295 
3p 
391 
395 
319 
311 
315 
329 
321 
325 
339 
331 
335 
342 
341 
345 
352 
351 
355 


DRAW"C3BM125,45"+BS$ 
DRAW"C2BM129,49"+ES$ 
FOR Z=1T075:NEXT 
DRAW"C3BM129,46"+ES$ 
DRAW"C2BM125,35"+E$ 
FOR Z=1 TO 199:NEXT 
DRAW"C3BM125,35"+ES$ 
DRAW"C2BM139,25"+AS$ 
FOR Z=1T075:NEXT 
DRAW"C3BM139,25"+AS$ 
DRAW"C2BM135,208"+A$ 
FORZ=1T075:NEXT 
DRAW"C3BM135,26"+A$ 
DRAW"C2BM149,15"+A$ 
FOR Z=1TO 75:NEXT 
DRAW"C3BM149,15"+A$ 
DRAW"C2BM145,15"+cC$ 
FOR Z=1T075:NEXT 
DRAW"C3BM145,15"+C$ 
DRAW"C2BM145,198"+G$ 
FOR Z=1TO 75:NEXT 
DRAW"C3BM145,168"+G$ 
DRAW"C2BM159,19"+H$ 
FOR Z=1T0125:NEXT 
DRAW"C3BM159,16"+HS 
DRAW"C2BM169,18"+D$ 
FOR Z=1TO 75:NEXT 
DRAW"C3BM169,19"+D$ 
DRAW"C2BM169,5"+D$ 
FOR Z=1T0299:NEXT 
DRAW"C3BM169,5"+D$ 


1999 GOTO19 





Listing 3: FLIGHT 2 


~ '<LISTING3> 


1 ' CREATED BY J. KOLAR, 1985 


19 PMODE3,1:PCLS3:SCREEN1,9 


11 DRAW"C1BMZ, 14PR4PD1PR1GU9PRIP 
D3 PR5PD5PR4PU4PR1IPD4APRISUIPR4AGD1 
PPR1PULIPR1PD1PR1PU4PR2GBD59L255" 


DRAW''C3BM129, 98"+D$ 
DRAW"C2BM139,95"+D$ 
FOR Z=1 TO 125:NEXT 
DRAW"C3BM139,95"+D$ 
DRAW"'C2BM14¢ , 95"+C$ 
FORZ=1T0125:NEXT 
DRAW"C3BM149, 95"+C$ 
DRAW"C2BM159 , 95"+F$ 
FOR 2=1TO 175:NEXT 
DRAW"C3BM159, 95"+F$ 
DRAW"C2BM149, 89"+A$ 
FOR Z=1T0125:NEXT 
DRAW"C3BM149, 89"+A$ 
DRAW"C2BM139, 75"+A$ 
FOR Z=1TO169:NEXT 
DRAW"C3BM139, 75"+A$ 
DRAW"C2BM129, 70"+A$ 
FORZ=1T075: NEXT 
DRAW"C3BM129, 79"+A$ 
DRAW"C2BM129, 60"+A$ 
FOR Z=1T075:NEXT 
DRAW"C3BM129, 60"+A$ 
DRAW"C2BM122, 58"+A$ 
FOR Z=1T075:NEXT 
DRAW"C3BM129, 59"+A$ 
DRAW"C2BM125, 45"+B$ 
FOR Z=1T075:NEXT 


TT Tree. 


12 PAINT(5,145),2,1 


PAINT(5,199),1,1 
AS="F6E6" 


BS="F6R6" 
C$="R6E6" 
DS="E6F6" 

ES="F12" 

FS="—12" 

GS="R12" 

HS="R6F6" 
DRAW"C2BM19,19"+B$ 
SOUND125,3 


DRAW"C3BM19,19"+B$ 
DRAW"C2BM15, 26"+A$ 
SOUND 89,2 
DRAW"C3BM15, 29"+A$ 
DRAW"C2BM25,28"+A$ 
SOUND125,3 
DRAW"C3BM25,26"+A$ 
DRAW"C2BM35,29"+A$ 
SOUND159,2 
DRAW"C3BM35,29"+A$ 
DRAW"C2BM49,35"+B$ 
SOUND125,3 
DRAW"C3BM4%,, 35"4+B$ 
DRAW" C2BM56, 49"+E$ 
SOUND89, 2 
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85 DRAW"C3BM59,46"+E$ 
99 DRAW"C2BM69,45"+B$ 
91 SOUND89,3 

95 DRAW"C3BM69,45"+B$ 


1f9 
191 


DRAW"C2BM79,45"+A$ 
SOUND159, 2 
DRAW"C3BM7#,45"+A$ 
DRAW" C2BM75,55"+A$ 
SOUND133,2 
DRAW"C3BM75,55"+A$ 
DRAW"C2BM85, 69"+A$ 
SOUND133,2 
DRAW"C3BM85, 69"+A$ 
DRAW"C2BM9f,76"+A$ 
SOUND89, 2 

DRAW" C3BM99,76"+A$ 
DRAW" C2BM95,75"4+C$ 
SOUND89, 2 
DRAW"C3BM95,75"+c$ 
DRAW" C2BM119,99"+D$ 
SOUND125, 2 
DRAW"C3BM119,99"+D$ 
DRAW"C2BM129,96"+D$ 
SOUND125,2 
DRAW"C3BM129,99"+D$ 
DRAW"C2BM139,95"+4+D$ 
SOUND125, 2 
DRAW"C3BM139,95"+D$ 
DRAW"C2BM149,95"+C$ 
SOUND133,2 
DRAW"C3BM149,95"4+C$ 
DRAW" C2BM159,95"+FS$ 
SOUND17$,2 

DRAW" C3BM159,95"+FS$ 
DRAW"C2BM149, 89"+A$ 
SOUND133, 2 

DRAW" C3BM149,82"+A$ 
DRAW"C2BM139, 75"+A$ 
SOUND 125,2 
DRAW"C3BM139,75"+A$ 
DRAW"C2BM129, 76"+A$ 
SOUND89, 2 
DRAW"C3BM129,76"+A$ 
DRAW"C2BM129,66"+A$ 
SOUND89, 2 
DRAW"C3BM129, 69"+A$ 
DRAW"C2BM129, 56"+A$ 
SOUND89, 2 
DRAW"C3BM129, 59"+A$ 
DRAW"'C2BM125,45"+B$ 
SOUND89, 2 
DRAW"C3BM125,45"+B$ 
DRAW"C2BM12f, 49"+ES 
SOUND89, 2 
DRAW"C3BM129,46"+E$ 
DRAW"C2BM125,35"+E$ 
SOUND125,2 
DRAW"C3BM125,35"+E$ 
DRAW"C2BM139,25"+A$ 
SOUND89, 2 
DRAW"C3BM139,25"+A$ 
DRAW"C2BM135, 26"+A$ 
SOUND89, 2 
DRAW"C3BM135, 26"+A$ 
DRAW"C2BM149,15"+A$ 
SOUND89, 2 
DRAW"'C3BM149,15"+A$ 
DRAW"C2BM145,15"+C$ 
SOUND 89,2 
DRAW"C3BM145,15"+C$ 
DRAW"C2BM145,19"+G$ 
SOUND89, 2 


continued on Page 41 
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ELECTRONICS 
on any 


Save °10 ofiez: 


Drive Your Own Taxi 


24°° 


Taxi 7 years and older. Choose city 
to drive in (London, New York etc.), 
pick up passengers, stop at traffic 
lights etc. Joysticks required. 26.2509 


Makes Adding Up Fun 


29° 


AK Grover’s Number Rover 3-6 years 6 
Ee . games-in-one! Help Grover pick up 
Twiddlebugs. Add, subtract, etc. A 

great learning aid. 26-2522 


- Teaches Children Shapes 


29°° 


Ernie’s Magic Shapes Designed for 
ages 3-6. Choose difficulty level. 
- Match color and shapes and then 
~ zap shapes away. 26-2524 


Learn Letters Easily 


29° 


Cookie Monster’s Letter Crunch 
Ages 3-6. Bake cookies with the right 
letters on and he’Il eat it. Turn letters 
into words. Requires joystick. 26-2526 


Recognise Amimals, 
Plants 


29°° 


Big Bird’s Special Delivery Ages 3-6. 
Match packages to shapes, take 
them to the right store. Animals, 
plants, food, instruments. 26-2525 





Reg 34.95 





Reg 39.95 


Reg 39.95 





Reg 39.95 


Reg 39.95 





Color Computer Educational 
Software for Children 


on any 
of these! 


Let the Kids Use Keys 


449° 


Kids on Keys Ideal introduction to 
the keyboard. Three games for 
location of letters and numbers. 
Four levels of difficulty. 26-3167 


— A Fun Way to Computers 


449° 


Se — Face Maker Educational program for 

, - younger users. Three games in one. 
~ Control the adding of eyes, nose, 
~ ears, hair, etc. on blank face. 263166 


Playing with Sights & 
Noises 


449° 


Kinder Comp Ages 3-8. Create col- 
orful pictures, scribble on screen, 
make sounds, animation, find let- 
ters. A perfect way to learn. 26-3168 













Reg 59.95 





Reg 59.95 


Reg 59.95 


Learning Fractions Easily 


4A4°> 


’ Fraction Fever Ages 7-adult. Hop 
WES along on a pogo stick, checking for 
xX Se ~~ matching fractions, zap incorrect 
~———____ ones. Just like an arcade game! zss169 


Reg 59.95 





_) How to Spell & Have Fun 


54°: 


: Alphabet Zoo Ages 3-8. Teaches rela- 
- tionship between letters and sounds. 


Reg 69.95 


—_—__ Race through maze, altering letters 
< : that form a picture. 263170 


~ Ask about Our Special Order Educational Software 
for Color Computer and TANDY 1000 sate ens: sovaiee 





VALUE 


*50 


Reg 149.95 


Q9> 


Multi-Pak Interface allows you to connect up to four 
Program Pak cartridges to your Color Computer at 
once. It also makes it possible to connect devices such 
as a Color Computer disk drive and graphics tablet. 
When you're ready to change from one Program Pak to 











Save *500 
$4499 


A true price breakthrough! 
The Tandy Model 4 is the 
perfect computer for busy 
managers, educators and 
home computer users. 
Boasts 64K memory, expan- 
dable to 128K, numeric 
keypad, RAM based Disk 
Drives, CP/M compatible, 
Parallel Printer interface. 
Huge ready-to-run software 
library. Comes with owner’s 
manual and introductory 
booklet to get you started. 
26-1069 
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350 Stores 
Australia- 
Wide 
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AUSTRALIA LIMITED 
INC INNS W 


Color Computer 
s External Expansion 








The Tandy Model 4 Desktop Computer 





No rainchecks on this item 













another, just move the selector switch on the front, or | 
change between slots under program control. Upgrade 
your computer with a disk drive now, or just make it | 
easier to change software programs. Attractive, 
durable and easy to use. AC operation. 26.3024 | 
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Available from 


350 Stores Australiawide 
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in this ad or have every item advertised. 
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DISK UTILITY 


A Disk Tinkerer’s 


By Martin H. Goodman 


Te: was an excellent article in 
the December 1985 RAINBOW, 
“Zapping with Confidence,” 
Page 118 by Jeffry Dwight, that pro- 
vided a well-designed “disk zap” utility. 
Now you can have an easy means to 
examine and modify disks. In this 
article I will try to aid such hardy 
tinkerers by discussing some aspects of 
just what you will see when you look at 
your disks. Some of this material is 
explained in the Radio Shack Disk 
Extended BASIC manual in Chapter 11. 
Some of the material, however, is not 
given there, especially the information 
on specific file structure. 

As a bonus, I'll provide you with a 
utility. Called Analyzer, it automati- 
cally gathers up the widely separated 
information on just where given direc- 
tory files are on your disk and prints it 
out in a neat fashion. Analyzer can be 
used in conjunction with any disk 
editor, such as the one mentioned 
above. 

Note 1: There may be some confusion 
about what number (zero or one) is the 
first number in a given sequence. The 
first sector on a track is numbered one, 
yet the first track on the disk is num- 
bered zero. The first byte in the direc- 
tory entry 1s called “byte zero.” The first 
granule is called granule number zero. 
These are arbitrary conventions. They 
are not all consistent with each other, 
and are a pain to remember ... but 
remember them a hacker must! 

Note 2: When referring to the data on 
the disk, I'll denote it in two different 
forms. When I say the first 11 bytes 
contain the filename and extension, | 
mean that the data is there in ASCII 
code. However, when I say the File Type 
flag byte will be 0, 1, 2 or 3, I am 
indicating the Hex value of that byte. 
When I later refer to the value of a byte 
in the Granule Allocation Table, Ill also 
be referring to its Hex value. 

The letter ‘A’ in ASCII is represented 
as Hex 41. Most disk zappers offer the 
option of displaying a sector in either 


Hex or ASCII. The one published in the 
December RAINBOW had even more 
options (decimal and binary) for how to 
display the data from the disk. The best 
disk zappers use a technique to display 
at the same time both the ASCII value 
and the Hex value of at least a selected 
byte in the sector, if not some or all of 
the sector. Some disk zappers (V/Ps, for 
example) display “screen code” values 
of the sector. This is vaguely like an 
ASCII display, but the data is repre- 
sented somewhat differently. With such 
zappers, the ASCII/ Hex options need 
to be used. In this article, when I make 
reference to text I’m talking ASCII, but 
when I specify to numeric information 
I am talking Hex. 

Note 3: I will assume we are consid- 
ering only normal Radio Shack/ Micro- 
soft Disk Extended BASIC files here. 
What follows is not relevant directly to 
OS-9, copy-protected material or to 
noncopy-protected, but also non stand- 
ard format disks, such as some new 
Radio Shack games, the new Infocom 
games and Graphicom or WEFAX 
picture disks. 

Note 4: I will assume you are familiar 
with the fundamental divisions of data 
on a disk: the 35 tracks and the 18 256- 
byte sectors that are standard for Radio 
Shack’s Disk Operating System. The 
Radio Shack Disk Extended BASIC 
manual is quite clear on this matter. | 
will also assume you understand that a 
“granule” consists of nine sectors on the 
disk, thus 1s 2!4K in size and can occupy 
either the first or the last nine sectors 
(numbered | through 9 or 10 through 
18) on a given track. Every track except 
Track 17 (the directory track) consists 
of two granules. The directory track is 
excluded from granule notation. There- 
fore, Track 0, Sector | is the first sector 
in granule number 0, Track 16, Sector 
18 is the last sector in Granule 33 and 
Track 18, Sector | is in Granule 34. 

Note 5: Most of the time I will use 
Hex notation, but sometimes I wiil use 
decimal. Thus, when I refer to Track 17, 





FieE 
Device 


I am talking decimal. Whenever I use 
Hex, Ill specify it by writing the word 
“Hex” or by preceding the number with 
a dollar sign ($). 

These notes may seem tedious, but 
hopefully they will help the novice get 
past some of the conventions that 
longtime hackers often accept and 
understand without thinking about 
them, yet are sometimes confusing to 
the newcomer. 


Directory Structure 

When you type DIR, you see a listing 
of filenames, extensions and then a 
number, a letter and another number. 
The first number displayed is the File 
Type, the letter is the ASCII flag and the 
last number is the number of granules 
in that file. Everything except for the 
information on how many granules 
there are in the file is directly recorded 
in the directory entry. 

The directory starts on Track 17 (Hex 
$11), Sector 3. Each entry is 32 (Hex 
$20) bytes long, of which only the first 
16 (Hex $10) bytes are used. The re- 
maining 16 bytes are “reserved for 
future use” by Microsoft. Therefore, 
one sector can hold up to eight directory 
entries. If the directory has more than 
eight files on it, then more sectors 
(Track 17, sectors 4, 5, 6, etc.) are used. 
Let’s look at Track 17, Sector 3. 


Bytes $00 through $0A: Filename 
and Extension 

As can be learned from reading 
Chapter 11 of the Radio Shack manual, 
filenames in the directory are placed on 
Track 17, Sector 3 and up. The first 
eight bytes of the entry are the filename, 
the next three are its extension. These 
11 bytes normally contain ASCII char- 
acters. Files that were killed will have 
the first byte in their name changed to 
Hex 0. 


Byte SOB: File Type Flag 
The next one is the File Type flag. 
This byte equals 00 for tokenized BASIC 








programs. It equals Hex 01 for what the 
Radio Shack manual calls “BASIC data 
files,” or what you will encounter as 
“ASCII BASIC” files, or as with many 
word processors and editor/ assemblers, 
ASCII text files. It equals Hex 02 for 
machine language programs. The man- 
ual says this byte equals Hex 03 for “text 
editor source files.” This File Type is 
rarely encountered, except by users of 
Color Scripsit. To those, I suggest 
buying Telewriter and Telepatch or VIP 
Writer or Elite Word. You'll have a 
much better word processor and won’t 
have to worry about text editor source 
files. 


Byte $0C: ASCII Flag 

The ASCII flag follows the File Type 
flag. This single byte is set to zero if the 
file is in binary format, and set to Hex 
FF if the file is in ASCII format. To- 
kenized BASIC is a kind of binary File 
Type; so is a machine language pro- 
gram. Thus, both of those tend to have 
the ASCII flag set to zero. ASCII text 
files (File Type flag = 1) have their 
ASCII flag set to Hex FF. 


Byte $0D: First Granule 
This is the number of the first granule 
used for the file. 


Bytes $OE and $0F: Number of Bytes 
in Last Sector 

Byte $OE is the high order byte, and 
is either zero or one — most of the time 


it is zero. If one, the next byte is zero, 
and 256 bytes in use (a full sector) are 
specified. Byte 15 varies from one 
through FF to signify from one through 
255 bytes used in the last sector of the 
file. Bytes $10 through $1F are “re- 
served” from back in 1981 for “future 
use.” They have never been used. 

Note here that while bytes Hex 0D,0E 
and OF provide some information about 
where the file resides on the disk and 
how far it extends, they leave out a lot! 
They give no clue, in and of themselves, 
as to how many granules there are in the 
file or of how many sectors are used in 
the last granule of the file. To find that 
out, you have to move over to Track 17, 
Sector 2, called the Granule Allocation 
Table, or GAT. 


The GAT 

The GAT occupies Track 17, Sector 
2. Actually, only the first 68 bytes of 
Track 17, Sector 2 constitute the GAT. 
The disk manual incorrectly states that 
the remaining bytes in that sector will 
be zero. Anyone who’s ever looked at 
a disk with a zapper knows this is not 
true. Indeed, due to some sloppy code 
in Disk BASIC, copies of pieces of the 
directory itself wind up in the space 
beyond the 68th byte of Track 17, 
Sector 2. This little idiosyncrasy had to 
be corrected by authors of Disk BASIC 
modifications who were implementing 
support for 40- and 80-track drives, but 
that’s another story. Suffice it to say 


Sample Run 


* INDICATES A KILLED FILE WHEN IN FRONT OF FILE NANE 
* INDICATES INVALID GAT ENTRY IN GAT LISTING 


KILLED FILES THAT ARE NOT LISTED AS 'SCRUNCHED GAT! 


HAVE MOST LIKELY 


BEEN WRITTEN OVER BY A NEW FILE AND ARE REALLY LOST! 


DIRECT1 /BAK BASIC data file 
PE, £1, 02,03,94,25,P6 
= #¢ OF SECTORS 


# OF BYTES IN LAST SECTOR 


DIRECT2 /BAK BASIC data file 
$7, 28,P9,PA 

6 = # OF SECTORS 
3B = # OF BYTES IN LAST SECTOR 


DISKANAL/BAK BASIC program 
9B 
9 = # OF SECTORS 
FF = # OF BYTES IN LAST SECTOR 
DIRECT1 /TXT BASIC data file 
PC, PD, PE, PF,1f,11,12 
2 = # OF SECTORS 
# OF BYTES IN LAST SECTOR 


DIRECT2 /TXT BASIC data file 
13,14,15,16 

6 = # OF SECTORS’ IN 
3B = # OF BYTES IN LAST SECTOR 


DISKANAL/BAS BASIC program 
17 

9 = # OF SECTORS 
FF = # OF BYTES IN LAST SECTOR 


April 1966. 


IN LAST GRAN 


IN LAST GRAN 


IN LAST GRAN 


IN LAST GRAN 


LAST GRAN 


IN LAST GRAN 


ASCII 


ASCII 


BINARY 


ASCII 


ASCII 


BINARY 
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here that in a normal Disk BASIC disk, 
the first 68 bytes of Track 17, Sector 2 
are the GAT and the remaining bytes 
are “garbage.” 

The first byte in the GAT is “byte 
number zero.” Each byte in the GAT 
corresponds to the status of a given 
granule on the disk. That status is 
encoded as follows: If the GAT byte is 
equal to $FF, then the corresponding 
granule is avilable fo1 new files. On a 
blank disk this is a blank (all $FF) 
granule; on an often-used disk, which 
has had files killed and other files 
written to it, that granule might contain 
some data from a previously killed file. 


In either case, the granule is flagged as 
available for new files. 

If a byte in the GAT is equal to a 
number from zero through 67 ($0 
through $43), it means that the granule 
is occupied by a given directory file, that 
this granule is not the last granule in the 
file, and the next granule in the file is 
the granule number corresponding to 
the number in that byte. As a result, if 
the directory entry says the first granule 
in a file is Granule $1E and Byte $IE 
in the GAT reads Hex IF, that means 
granule $1F is the next granule in the 
file, and Byte $1F of the GAT must now 
be looked at to learn more about where 
the file resides. 

If the byte in the GAT reads $Cl 
through $C9, it means the correspond- 
ing granule is the last granule in the file, 
and the number of sectors in the granule 
that actually belong to the file is the low 
order Hex digit of the number in the 
GAT byte. That is, if we look at Byte 
$1F from the example of the last para- 
graph and find it contains $C4, it means 
the file in question occupies a total of 
two granules, granules 1E and IF, and 
Granule IF actually has only the first 
four of its sectors used for the file (the 
remaining five would be wasted). 

Note that the smallest file in Disk 
BASIC must occupy a whole granule, 
even if it is only one byte long. The rest 
of the granule in question is wasted. 
Note that if a GAT byte is equal to any 
number besides $FF, 00 through $43, or 
$C1 through $C9, it means the GAT 
itself has an error in it! The Disk BASIC 
manual alleges that $CO is a valid code 
for a GAT byte, but I can see no use for 
that value. (If a reader can explain to 
me the significance of a $CO GAT byte 
value, I’d appreciate it.) For now, I can 
only assume the Disk BASIC manual 1s 
in error on this matter. 

To fully know exactly where the file 
ends, we now need to hop back to look 
at the directory entry for the number of 
bytes in the last sector of the file that 


sess aes Eee 





are actually used. You now can see that 
the specification of what bytes on the 
disk corrrespond to a given file is 
smeared out between the directory entry 
for that file and the GAT. In the GAT, 
the file size has to be determined by 
tracking down the file from GAT byte 
to GAT byte, until the end of what 
programmers call the “linked list” of 
bytes is reached. And finally, after 
finding the last granule and last sector 
in that granule, one has to go back to 
the directory entry to find where the last 
used byte is in the last sector. 

What a mess! Why did they do it that 
way? Despite the mess, there is some 
method to this madness. Grouping all 
the information concerning which gran- 
ules are used and which are not into one 
single block, they facilitate keeping 
track of available space on the disk and 
make killing of old files easier to do. 
Though there are some ways in which 
the scheme is needlessly complex, it 
actually makes more sense than it seems 
to upon first glance after you start 
considering how disk operating systems 
and file managers have to be written. 


Killed Files 

When you kill a file using Disk BASIC, 
the actual file data is not immediately 
destroyed. What happens is the first 
byte in the name of the file in the 
directory is set to zero, and all bytes in 
the Granule Allocation Table, which 
correspond to bytes in that file, are set 
to $FF (= available). Thus, if you kill 
a file, all data in the file remains on the 
disk. Only the information in the GAT 
needed to find such data is destroyed by 
the KILL command itself. 

Of course, if you try to SAVE any new 
data to a disk after killing a file, you 
may end up writing over granules that 
were previously a part of the killed file, 
Or even writing over the old killed 
directory entry as well. At that point, 
the file data in the killed file is com- 
pletely destroyed. But, if you have 
merely killed a file and then want to 
restore it, such restoration is possible, 
though often tedious. 

As you add files to a fresh, formatted 
disk, Disk BASIC is inclined to assign 
granules to each new file in a fashion 
that starts on one side of the dirctory 
and tends to alternate on either side of 
the directory track. Therefore, files 
under Disk BASIC tend to get assigned 
near the middle of the disk and grow 
towards both the center and the outer 
edge. 

However, some disk utilities (such as 
Spectrum Projects’ Directory Utiltity) 
assign granules sequentially from Gran- 
ule 0 to Granule 68; disks that have had 


many files written to them, then erased, 
then others written to them, tend to 
have the granules that compose a given 
file scattered all over the disk. This can 
make reconstruction of a big killed file 
on such a disk very difficult. 


File Structure 

Now that you know how to find a 
given file, from its first to last byte on 
the disk, I'll explain what you can 
expect to see in the three most com- 
monly encountered Disk BASIC files. 


ASCII 

ASCII text files (“BASIC text files”) 
are the easiest of all to understand. 
These files have the File Type flag set 
to one and the ASCII flag set to $FF. 
They are almost totally “raw” data — 
just byte after byte of information, 
usually (though not necessarily) ASCII 
text. The only thing special about them 
is the last byte in the file is Hex IA 
(control Z). This is the flag that marks 
the end of an ASCII text file. Within the 
file the bytes are typically less than a 
Hex value of $80, but are not required 
to be so. Thus, the only special “struc- 
ture” such a file has is that it will not 
have any $1A’s in it until the last byte 
of the file. 


Tokenized BASIC 

Tokenized BASIC files are a kind of 
binary file. They have a File Type flag 
of zero and an ASCII flag of zero as 
well. Looking at them in ASCII, you 
will be able to recognize all the text that 
is in the BASIC program, but all BASIC 
key words are encoded (“tokenized”) 
into one or two bytes. Line numbers do 
not appear as ASCII, but as two Hex 
bytes. 

For example, the line 257 PRINT 
“ABC” appears in the file as the follow- 
ing sequence of bytes: 00 (a line delime- 
ter), 01 O01 (the two-byte Hex value for 
257 decimal) followed by Hex 80 (the 
BASIC token code for PRINT), then Hex 
22 41 42 43 22, the ASCII codes for 
“ABC”. Because no BASIC token is set to 
00, and 00 is a nul (not used to encode 
ASCII letters and symbols), you will 
never find inside the tokenized BASIC 
file more than two 00 bytes in a row. 


However, at the end of the file, you will 
find three 00 bytes. This is BASIC’s “end 
of file flag.” If you are in the process of 
reconstructing a disk after losing the 
GAT on it (an utterly thankless task. . . 
let me tell you!), your reconstruction of 
a given BASIC file is aided by your search 
for the sector with BASIC code and three 
00 bytes. 

Occasionally, you might encounter 


what appears to be a normal BASIC file 
that has two sets of three 00 bytes in it. 
This most likely is an especially pre- 
pared “end packed” BASIC file, made up 
by programmers to stuff machine lan- 
guage code invisibly at the end of a 
BASIC file. Such files are not normal 
BASIC files and have been “foxed with” 
by the programmer. 


Machine Language Files 

These are by far the the most compli- 
cated files of all. This is due to the 
provision Microsoft made for “seg- 
mented” binary files. That is, an ML file 
on a disk (unlike its counterpart on a 
tape) can consist of several segments 
that load in different areas of memory. 
Let’s start with the description of a non- 
segmented ML file, then go on from 
there. 


Non-segmented ML Files 

The SAVEM command generates non- 
segmented ML files. Note that the 
SAVEM command cannot generate a 
segmented ML file; those are created 
using various editor/assemblers or by 
foxing with the file as it resides on the 
disk using a disk zapper. Such non- 
segmented ML files (actually they are 
segmented files that have only one 
segment) begin with a 00 byte. This is 
followed by two bytes that specify 
number of ML data bytes, then by two 
more bytes that specify where the ML 
data is to start loading into memory. 
This five-byte “header” is followed by 
the ML data itself. At the end of the file 
is a five-byte ending sequence, consist- 
ing of an $FF byte, two bytes of 00 each, 
then two bytes that specify the execute 
address of the file. 

For example, if you made a file using 
SAVEM “TEST” &H4321, &H4324, 
&H4322, and if $4321 through $4324 
contain the Hex values Al, B2, C3 and 
D4 at the time you save the file, it 
appears on the disk (in Hex) as follows: 
00 00 04 43 21 (the five-byte header with 
the 00 flag byte, the length of the file as 
$0004 and the start address of $4321), 
followed by Al, B2, C3, D4 (the actual 
data in the file itself), followed by the 
end five bytes of FF, 00, 00, 43 and 22. 

Note carefully that the end address is 
not specifically stored as such on the 
disk in the file header. It must be 
calculated from the start of load address 
and the file length. Also note that you 
must track the file down to its end 
before you can tell what its execute 
address is. 


Segmented ML Files 
Segmented ML files are very similar, 
but after the first segment, instead of 
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having an FF 00 00 (execute address) 
five-byte end flag, they have another 
header, specifying more data to be 
loaded elsewhere in memory. There 1s 
no limit (other than the memory of the 
CoCo and the size of the disk) on how 
many segments such a file can have, so 
it is possible to create an ML file that 
loads single bytes all over the memory 
of the CoCo. In these segmented files 
the end is recognized by the presence of 
the FF end flag followed by the 00 00 
(execute address) five-byte final block. 
Thus, asegmented ML file can have lots 
of start and end addresses, though it can 
only have one execute address. 

This segmented structure can be a bit 
confusing, but it is very convenient for 
assemblers! And, it is helpful when you 
need to make a program that loads stuff 
in differing and widely separated areas 
of memory. Such segmented files are 
easily created with EDTASM and with 
Macro 80C (and probably most other 
editor/assembler packages) using more 
than one ORG statement in the source 
code. Indeed, some assemblers that 
assemble directly to disk, like Macro 
80C, create segmented files even when 
assembling source code that is not 
multiple ORGed. In such cases, the end 
address of one segment will be seen to 
be one less than the start address of the 
next. 








The listing: ANALYZER 


18 CLEAR 2269 

28 DIM G(69) 

25 CLS:PRINT"(C) MARTY GOODMAN 1 
985":PRINT 

38 PRINT"DIRECTORY ANALYZER": PRI 

NT: PRINT"PREPARE PRINTER": PRINT: 
PRINT"HIT ANY KEY TO CONTINUE" 
46 IF INKEYS=""" THEN GOTO 49 

58 D=-2 

76 PRINT#D,"* INDICATES A KILLED 
FILE WHEN IN FRONT OF FILE NAME 
“ 

89 PRINT#D,"* INDICATES INVALID 

GAT ENTRY IN GAT LISTING" 

98 PRINT#D,"KILLED FILES THAT AR 
E NOT LISTED AS 'SCRUNCHED GAT'! 
HAVE MOST LIKELY" 

92 PRINT#D,"BEEN WRITTEN OVER BY 
A NEW FILE AND ARE REALLY LOST! 
“ 

95 PRINT#D,"":PRINT#D, "" 

198 REM READ IN GAT 

118 DSKI$ $,17,2,A$,B$ 

126 FOR N=1l TO 68 

138 G(N)=ASC(MID$(A$,N,1)) 

146 NEXT N 

20 REM ANALYZE DIRECTORY 


References 

Disk BASIC Unravelled, published by 
Spectral Associates, is the bible for ML 
disk hackers. Indeed, I’d go so far as to 
say that if you do any assembly lan- 
guage hacking using Disk BASIC, you 
need to buy the three-volume BASIC 
Unravelled (cost is about $50). This set 
has fully commented disassemblies of 
all versions of the CoCo ROMs, gobs 
of information about the RAM-base 
page and such, stuff on file formats, 
BASIC routine entry points, and the like. 
It is what Microsoft and Tandy should 
have published the day they released the 
CoCo on the market. Spectral Asso- 
ciates and the unnamed ML hacker(s) 
who compiled this set deserve the 
thanks of all CoCo users. 

The Disk Extended BASIC Manual 
comes with your Radio Shack disk 
Drive 0. This manual can be ordered 
separately, although only the few pages 
in Chapter I1 are of relevance to what 
is written here. 


The Disk Analyzer Program 

The following simple BASIC program 
automatically searches out all the infor- 
mation needed to find every byte in a 
given valid file on a Disk BASIC disk. It 
dumps that information to a printer; 
you can also have it go to the screen by 
changing Line 50 from D=-2 to D=0. If 


212 
252 
3 P92 
395 
397 
312 
FF) 
32p 
325 


S=3 
DSKIS $,17,S,A$,B$ 

REM MAIN LOOP 

IF LEN(AS$)=@8 THEN :GOTO 5999 
K=9 

T=1:GOSUB 2699:IF E$=CHR$(&H 
THEN GOTO 9999 | 

IF ASC(E$)<>$ THEN GOTO 359 
K=1 

335 PRINT#D,"* "; 

359 T=8:GOSUB 1$99:PRINT#D,E$;:P 
RINT#D,"/"> 

T=3:GOSUB 1699:PRINT#D,E$; 
T=1:GOSUB 1999 

E=ASC (ES) 

IF E=9 THEN GOTO 419 

IF E=1 THEN GOTO 429 

IF E=2 THEN GOTO 439 

IF E=3 THEN GOTO 449 

499 PRINT#D," BAD FLAG BYTE ";: 
GOTO 459 

419 PRINT#D," 
GOTO 459 

426 PRINT#D," 
GOTO 459 

436 PRINT#D," 
GOTO 459 

449 PRINT#D," 
458 PRINT#D," 
$:E=ASC(ES) 
469 IF E=f THEN GOTO 489 


BASIC program ";:; 
BASIC data file";: 


Mach Lang progm";: 


Txt Ed src file"; 
">:T=1:GOSUB 199 


465 IF E=255 THEN GOTO 499 

478 PRINT#D," *BAD* ":GOTO 599 
489 PRINT#D," BINARY":GOTO 599 
499 PRINT#D," ASCII " 


599 REM ANALYZE GAT ENTRIES 
519 T=1:GOSUB 1699:E=ASC(ES$) 
515 COMMA=f 

529 REM GAT LOOP 

525 GOSUB 3999 
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you do this, you'll want to add some 
kind of pause feature as the data oth- 
erwise scrolls by too quickly to read. 
Just load the program, type RUN, put the 
disk you want to analyze in Drive 0, 
make your printer ready and press any 
key. All text is printed in ASCII char- 
acters and all numeric values are printed 
in Hex. 

Analyzer prints four lines of informa- 
tion about each file on your disk. 

First line: Filename, extension, File 
Type flag byte status, ASCII flag status 
(an asterisk [*] precedes any killed files 
on your disk that this Analyzer will see 
and list). 

Second line: The numbers of all the 
granules that compose the file, from the 
first to the last. If invalid granule 
numbers are detected, the program 
indicates this by a ‘*’ and/or by printing 
in the next line “scrunched GAT!”. 

Third line: The number of sectors in 
the last granule. 

Fourth line: The number of bytes in 
the last sector. 

This program gathers together all the 
widely separated data into one table for 
you to refer to when you are wandering 
around your disk using a disk zapper. 
Note that Analyzer does some testing 
for messed up entries, but on a disk with 
blown directory entries it won't be of 
much use. C 





539 IF V=$ THEN PRINT#D," *":GOT 
O 899 

549 IF V=2 THEN GOTO 899 

545 IF COMMA=$ THEN GOTO 559 

547 PRINT#D,","; 

559 GS$="9999":GS=G$+HEXS (E) :G$=R 
IGHTS (G$,2) : PRINT#D,G$; 

569 COMMA =1 

579 E=G(E+1):GOTO 529 

889 REM CHECK SECTORS USED IN 
LAST GRAN 

818 PRINT#D,"":PRINT#D,E AND &HP 
F;"" = # OF SECTORS IN LAST GRAN 
" 















828 GOTO 999 

899 PRINT#D,"SCRUNCHED GAT!" 

999 REM CHECK BYTE COUNT IN LAST 
SECTOR AND LOOP 

919 GOSUB 1999 

B=ASC(E$):IF B>1 THEN GOTO 9 









T=1:GOSUB 1999 
BC=256*B+ASC(ES$):IF BC>256 T 
GOTO 989 

PRINT#D,HEX$(BC);" = # OF BY 
IN LAST SECTOR" 

T=16:GOSUB 1999 

PRINT#D,"" 

GOTO 399 

PRINT#D,"BAD BYTE COUNT ENTR 















SUBSTRING 
1905 ES=LEFTS(AS,T) 
sane AS=RIGHTS (A$, LEN(A$) -T) : RET 
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PROGRAMMING UTILITY 











VARLIST: 


A Quick and Easy Way 
to List Program Variables 


Varlist, a utility program that 
lists all variables, will lend some 
help with those pesky problem 

programs that you just can’t get to work 

properly. 

Let’s look at an example. I once had 
a program with a variable called LNC 
(for “Line Count”); it also had another 
variable named LND (for “Line De- 
scription”). The program just didn’t 
work as anticipated. Of course, in 
hindsight I realized the error of my 
ways: Only the first two characters are 
significant in a variable name. The 
program treated LNC and LND as the 
same variable! 

Now, if I only had a utility tool that 
could tell me all the lines containing 
LNC and LND. I didn’t have such a 
tool, and it took me an agonizingly long 
time to go through every line of the 
program to change one of the variable 
names so it was different from the other. 

I decided then that someday I would 
write such a utility program. Varlist is 
the result, and I would like to share it 
with other CoCo friends. It lists all the 
numbers of the lines in which variables 
appear; in fact, if a variable appears 
twice, it is listed twice. In addition, it 
also highlights all the jump statements, 
1.e., GOTO, GOSUB, THEN and ELSE. 


Do You Like BASIC’s Beauty? 

This program is written entirely in 
BASIC. As you can imagine, it does not 
exactly race through the target pro- 
gram, but it lets you know where it 1s 
at all times. In the interest of preserving 
some processing speed, I have kept the 
REMarks to a bare minimum and have 
eliminated unnecessary spaces wherever 
possible. A program line without spaces 
between BASIC statements and variable 
names may look strange at first sight, 


By Hans Schulz 


but you will get the drift of it. 


Are You in a Hurry? 

POKE 65495, will increase your 
processing speed, but if you are really 
impatient, insert lines 50001 and 50601 
into Varlist for additional speed (see 
Listing 2). However, you lose the screen 
display during this speed up. 


Do You have Enough Memory? 

Varlist uses approximately 9,000 
bytes (9K) of RAM. The program 
changes the standard PCLEAR4 when 
you first turn on the CoCo to PCLEAR1, 
which only reserves one page of graph- 
ics memory (1,536 bytes). If you have a 
lengthy target program you may have to 
free up some additional memory to fit 
both Varlist and your program into the 
available RAM space. To get at the 
extra 1,536 bytes, you have to perform 
the equivalent of a PCLEAR®@, which, as 
you may know, is not a valid BASIC 
command. It can be summarized as 
follows: When you first power up your 
CoCo, type POKE &H19,6:NEW and 
press ENTER. In this case, you should 
also remove the PCLEARI1 statement 
from Line 50010. 


How do You get the Program to Work? 

First key in Varlist and CSAVE a copy 
of it, then make sure there are no typing 
errors by testing it with RUN 50@@@. It 
will list the variables in the test program 
(lines 10 through 90). Correct typing 
errors, if any, and CSAVE a corrected 
copy of Varlist. Now delete lines 10 
through 90. 

Make sure the program for which you 
want to produce the list of variables 
does not have any line numbers greater 
than 49999 and, if necessary, renumber 


it. Merge your program with Varlist. 


Now type RUN 5@@@@ and press ENTER. 
The screen will display the line numbers 
of your program, which Varlist is scru- 
tinizing as it steps through the program 
line by line. 


How does Varlist Work? 

Line 50010 reserves 1,500 bytes of 
memory for string variables and re- 
serves space for 500 variable names and 
500 line numbers; it also releases three 
pages of graphics memory. (When you 
turn on your CoCo it automatically 
PCLEARs four graphics pages.) Then the 
screen 1s cleared. 

Line 50030 finds the starting address 
of your BASIC program in memory, 
regardless of whether you have a 16K 
or 32K CoCo. (This may be useful for 
future reference.) 

Line 50040 initializes the variable PO 
(the pointer address of the beginning of 
the next line) and variable LI (the 
current line number being worked on). 
Line 50570, processed in the GOSUB 
statement, displays the line number 
being examined on the screen. If the line 
number is greater than 49999 then the 
program has reached Varlist and the 
end of your target program, in which 
case all variables have been found and 
the list will be displayed on the screen 
starting at Line 50600. 

As an aid to the general understand- 
ing of Varlist, I let it generate a list of 
the variables used in the Varlist pro- 
gram (see Sample Output, Table 1). I 
have also prepared a shortened list of 
the variables, where each variable ap- 
pears only once, and have sorted the 
variables in alphabetical order (see 
Table 2). 

The GOSUB 5@52@ in Line 50060 reads 
the next character (in ASCII format) 
from the memory location where your 





Variables and Jumps in Varlist 


SPH1B 
SP G1P 
5$83 9 
SPP4D 
5 PP4D 
SP PED 
5PB7P 
52D7D 
56 27D 
569872 
5898p 
5 P28 p 
5928 B 
5PBID 
5 PLDID 
SP PIP 
SP 29D 
SP PIB 
52 D9D 
SPPIP 
5G162 
5P1PP 
SP19P 
56116 
59119 
59119 
59129 
59129 
59126 
59136 
59130 
59132 
59140 
59140 
59142 
59152 
59159 
59156 
59152 
59150 
59159 
58156 
5016p 
59160 
50166 
5162 
59169 
59160 
59170 
50170 
59179 
50176 
59179 
50179 
59189 
59186 
59189 
59189 
59199 
59199 


Table 1 
Sample Output: 


LAS (SUB) 
LR (SUB) 
N 


gosub 5955¢ 


goto 59692 


gosub 59522 
C 


N 
N 


gosub 59559 
gosub 59529 
C 


then 59689 
N 


PO 


PO 


C 
thengosub 59546 


SPP7P 


SPP8B 


5282 


5 PP8P 


9 PP8p 


SPP8P 


goto 5882 
Cc 


N 
DS 
DS 


gosub 54419 


goto 
Cc 


N 
DS 
DS 


gosub 58419 


goto 
C 
DS 


gosub 5/419 


goto 
Cc 


N 


5 PPIP 


5 PP9P 


SPPIP 





program is stored. 

Line 50070 is reused again later, and 
if ‘C’ (the character being examined) is 
a zero, it indicates that the last byte of 
the program line has been reached. In 
that case, ‘N’ (the number of the storage 
location being read) must be decre- 
mented by one to update the address 
pointer (PO) of the next line in the 
GOSUB 5@55@. 

In Line 50080 the next character is 
read (GOSUB 5@526). If the character 
(‘C’) is a space, then the process is 
repeated until a non-blank character is 
found. 

If in Line 50090 the address pointer 
of the next line is identified, then PO is 
updated again. 

Lines 50100 through 50140 identify 
some BASIC statements with two-byte 
tokens and processing continues with 
reading the next character in Line 
50080. Line 50100 identifies a PEEK; 
Line 50110, a USR statement; Line 
50120, an ABS function; Line 50130, an 
ATN function; and Line 50140, an SQR 
function. 

Line 50150 determines when process- 
ing can skip to the next line without 
reading to the end of the current line. 
That can be done when a DATA state- 
ment is encountered (token 134) or a 
REM (token 130), or its equivalent, the 
apostrophe (’), which is tokenized as 
131, and also the LLIST statement 
(token 155) and LIST (token 148). 


Table 2 
Short List of Variables 
in Alphabetical Order 


AAS 

C 

DS 

I 

I$ 

IM 

IX 

LA 

LAS (SUB) 
LI 

LL 

LR (SUB) 
MNS 
MX$ 





GOSUB 5@54@ accomplishes the skip to 
the next line, after which processing 
continues at 50080 by reading the next 
character. 

Lines 50160 through 50200 are some- 
what self-explanatory: They deal with 
the jump statements (GOTO, GOSUB, 
THEN and ELSE). Only Line 50190 seems 
a little out of place — it identifies the 
two-byte token for RND (255 132). The 
RND token is not of significance to the 
Varlist logic and the program reads the 
next character by branching back to 
50080. Having disposed of the RND (255 
132) token, it can now be deduced in 
Line 50200 that if the current character 
is a token 132, it is part of the two-byte 
token (58 132) representing the state- 
ment ELSE. (Does 58 seem familiar? It 
is the ASCII code for the colon [:], 
which is used by BASIC to separate 
statements on the same line. Quite 
clever, those Microsoft people, using 
the colon as part of the ELSE logic!) 

Now, back to the jump statements. In 
each case a descriptor (D$) is being 
built. This string may contain, for 
example, the word “then” or “else” and 
may conceivably have the word “goto” 
or “gosub” added to it. At this point, a 
subroutine is performed (GOSUB 50419) 
that obtains the line reference number, 
i.e., the line number to which the jump 
statement has been programmed to 


jump. Upon return from the subroutine, 


with the next byte already read, process- 
ing branches back to 50090 to determine 
what to do with this character. 

Line 50210 looks at the letter ‘M’ 
(ASCII code = 77). This is not an 
ordinary ‘M’ though, such as an ‘M’ that 
may be part of a variable name. It is the 
‘M’ in CLOADM. The token for CLOAD is 
151, and if the byte following it is the 
letter ‘M’, then GOSUB 5052@ reads it 
and, immediately afterwards, branches 
back to 50080 to read the next charac- 
ter. At this point Line 50220 discards 
any further tokenized BASIC statements, 
1.e., ASCII codes greater than 127, and 
branches back to 50080. . 

Line 50230 finds out if the character 
read is alphabetic, 1.e., if the ASCII 
code is in the range from 65 to 90, 
representing the capital letters A to Z. 
Finally, the program does some real 
work after all the sifting and discarding 
up to this point: The subroutine at 
50300 assembles the variable name, 
starting with the character (‘C’) just 
read, then adds to it, one byte at a time, 
until the variable name is completely 
assembled. After return from the sub- 
routine, Varlist branches back again to 
50080 to read the next character. 

Line 50240 tests to see whether the 
character read is a quote (“), which is 
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represented by ASCII code 34. Any- 
thing enclosed in quotes is of no interest 
in this program. Therefore, the subrou- 
tine at Line 50270 keeps on reading and 
discarding characters until it finds the 
second of a pair of quotes. The main 
body of this program ends at Line 
50250, where processing loops back to 
read the next character at 50080. 


What do the Subroutines do? 

Varlist contains the following sub- 
routines, which are each described here. 
1) Skip between Quotes — Line 50260 
2) Build the Variable Name — Line 

50300 
3) Build the Line Number Reference — 

Line 50400 
4) Peek at the next ASCII Character — 

Line 50510 
5) Skip to the next Line — Line 50530 
6) Print the List of Variables — Line 

50590 


Skip between Quotes — Line 50260 
As described earlier, this subroutine 
keeps reading and discarding characters 
until it finds the second of a pair of 
quotes (ASCII code 34). The subroutine 
also checks for reasonable length of the 
string between the pair of quotes. I felt 
anything in excess of five lines of 32 





Listing 1: VARLIST 


19 REM**LINES 19-99 REPRESENT A 

TEST PROGRAM FOR DEMONSTRATION. 

15 FORO=1TOP:IFQ=RT THENGOSUB123 

456789ELSE1P 

28 S3=T3+U:V(W)=X3 

25 NEXT Y: REM Q$ 

IFZ=5 THEN1PELSEGOTO13498 

A3 (56) =1:B345=2:C4444=3 

IF PEEK(DT)=4 THEN POKE ER,1 

reid : 

IFF=3THENG=9ELSEGOTO19 

IF H=I THENGOSUB1{$:GOTO 16 'R 

EAD & END 

69 PRINT "A=";J3;"  A3=";K3;" 

">L(M) ;"=ARRAY R":RETURN 

65 READ N$:END 

79 DATA A,A3,B 

99 LIST 

5P2 DD CeRekkkkeKRKKKRKRKKKRRKRRKRKKRKSE 
te VARLIST * 
* (LIST OF ALL VARIABLES) * 
*FOR THE COLOR COMPUTER * 
* BY HANS SCHULZ (1984) * 
RARERKKRKRKKKKKRKRKKRKKKRKRKRKKS 

59919 CLEAR159$9:PCLEAR1:DIM LA$( 

599) , LR(5P) :CLS 

59929 ‘eke INITIALIZE*** 

59939 N=PEEK(25) *256+PEEK(26)-1 

59949 GOSUB59559:GOTO5£99p 

59959 '***READ THE FILE*** 

59969 GOSUB5$52p 

59979 IFC=STHENN=N-1:GOSUB5$559 
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characters (a total of 160 characters) is 
probably in error and designed the 
program to stop in such a case. If this 
does not apply in your program, simply 
change Line 50280 accordingly. 


Build the Variable Name — Line 50300 

When powering up CoCo the sub- 
script (LA) used to identify the labeled 
variable (LA$) has a value of zero. On 
each trip through the subroutine, that 
is, every time a new variable name is 
stored, the subscript is incremented by 
one in Line 50310. In Line 50320 the 
first character of the variable is stored; 
in 50330 the next character ts read. 

In Line 50340 the character value of 
zero indicates the end of the current line 
has been reached and it is now time to 
store the current line number (LI) in the 
array LR(LA). This array is used for 
later printing to indicate where each 
variable appears in the target program. 
The program then branches back to the 
beginning of the main routine of the 
program. 

Line 50350 tests to see if the byte 
currently under scrutiny is numeric 
(ASCII codes 48 to 57) or if it is alpha- 
betic (ASCII codes 65 to 90). If it is 
alphanumeric, the byte is appended to 


59086 GOSUB5$529: IFC=32THEN5 £982 
59999 IFN=PO ANDC=$THENPO=PEEK(N 
+1) +PEEK(N) *256:GOTO59976 

59199 IF(C=134ANDPEEK(N-2)=255)T 
HEN5 $989 

59119 IF(C=131ANDPEEK(N-2)=255)T 
HEN5 2982 

58129 IF(C=13PANDPEEK(N-2) =255)T 
HEN5 £989 

59139 IF(C=148ANDPEEK(N-2)=255)T 
HEN5 £982 

59149 IF(C#=155ANDPEEK(N-2)=255)T 
HEN5 £982 

59159 IFC=1340RC=13fORC=1310RC=1 
5 50RC=148THENGOSUB5£54f : GOTO5 998 


g 

59169 IF(C=165ANDPEEK(N-2)=129)T 
HEND$=D$+"goto" : GOSUB59419 : GOTO5 
PAID 

59179 IF(C=166ANDPEEK(N-2)=129)T 
HEND$=D$+"gosub" : GOSUB5$419: GOTO 
SPP9P 

58189 IFC=167THENDS="then":GOSUB 
59418:GOTO59 999 

591968 IF(C=132ANDPEEK(N-2)=255)T 
HEN5 $986 

59209 IFC=132THENDS="else":GOSUB 
59419:GOTO59998 

5219 IF(C=151ANDPEEK(N) =77) THEN 

GOSUB5$529:GOTO59982 

59220 IFC>127THEN5S£P89 

59239 IF(C>64ANDC<91) THENGOSUB59 
319:GOTO5Pp98p 

59249 IFC=34THENGOSUB5$279:Q=8:G 

OTO5 9989 

58256 GOTOS5SS989 

58269 '***SKIP BETWEEN QUOTES*#** 
59279 GOSUB5$529:Q=Q+1: IFC<>34TH 

EN59279 

59289 IFQ>16STHENPRINT"CKECK FOR 
PAIRED QUOTES": STOP 

59298 RETURN 


59369 '*** GET VARIABLE NAME *** 

59319 LA=LA+1 

59329 LAS (LA) =CHRS (C) 

593368 GOSUB5S9#52¢ 
Australian k BS OLA 


the array LAS(LA) and processing 
loops back within the subroutine to 
50330 to read the next byte. If the 
character being examined in Line 50360 
is a ‘$’ sign (ASCII code = 36), it is added 
to the variable name and processing 
resumes at 50330, getting the next byte. 

In Line 50370, if the character is an 
ASCII code 40, i.e., the opening bracket 
‘(’, then the literal “(SUB)” is appended 
to the variable name to show that the 
variable is subscripted. In other words, 
the variable is an array. 

Line 50380 stores the current line 
number being worked on (and presently 
being held in “LI”) in the Line Reference 
array, “LR(LA).” 


Build the Line Number Reference — 
Line 50400 

In Line 50410, which is similar to 
Line 50310, the subscript LA is incre- 
mented by one to store the Line Refer- 
ence on each pass through the subrou- 
tine. 

In Line 50420 the line number LI 
presently being processed is stored in 
the Line Reference array, “LR(LA).” 

Line 50430 obtains the next charac- 
ter, and if it happens to be a blank 
(ASCII = 32), the program immediately 
gets the next byte. 


59349 IFC=$THENLR(LA)=LI:GOTO59# 
7p 

59359 IF(C>47ANDC<58) OR(C>64ANDC 
<91) THENLAS (LA) =LA$ (LA) +CHR$(C) : 
GOTO5933p 

59369 IFC=36THENLAS (LA) =LAS (LA) + 
CHRS$ (C) :GOTO59339 

59379 IFC=4$THENLAS (LA) =LA$ (LA) + 
" (SUB) " 

59389 LR(LA)=LI 

59399 RETURN 

50499 '***GET LINE # REFERENCE** 
59419 LA=LAt1 

594298 LR(LA)=LI 

59439 GOSUB5$529: IFC=32THEN5#4 3p 
59449 IFD$="then"ANDPEEK(N-1) >12 
9THENDS="" 

59459 IFC>127THENLR (LA) =$:GOTO5# 
IP 

59469 IF(C<480RC>57) THENLR (LA) =f 
: DS="": GOSUB5 $329: GOTO5PP98 
59479 LL=VAL(CHR$(C) ) 

59489 GOSUB59$529: IF (C>47ANDC<58) 
THENLL=LL* 1$+VAL(CHR$ (C) ) :GOTO5# 
48f 
59499 
5P52p 
5951p 
* 


5952p 
5953p 
59542 
59556 
59569 
5957D 
+5:PRINT"... 
59589 RETURN 
59599 '***PRINT THE LIST*** 
59699 PRINT: PRINT" PROCESSING 
COMPLETE ...":PRINT 

59616 PL=1 

59628 IFLR(PL) >STHENPRINTUSING"# 
####"sLR(PL);:PRINT" "3; 

59639 IFLA$(PL) <>" "THENPRINTLAS ( 
PL) 

59649 PL=PL+1 


LA$ (LA) =D$+STR$ (LL) 
D$=""": RETURN 
'kkkGET ASCII FOR NEXT C#* 


C=PEEK(N) :N=N+1:RETURN 
'kk*kSKIP TO NEXT LINE *** 
N=P0-1 
PO=PEEK (N+2) +PEEK (N+1) #256 
LI=PEEK (N+4) +PEEK(N+3) *256 
IFLI>49999THEN5#$6$PELSEN=N 
LINE #";LI 


April 1966. 



















59659 IFPL=FIX(PL/12) *12ANDPL<=L 
\ THENPRINT@471,"MORE .. 
: GOTO5$67f 

59669 IFPL<=LA THEN5§62SELSE5$£68 


.": PRINT 


B 
58678 IFINKEY$<>""THEN5$62fELSE5 
Q67P 
59689 PRINT"***END OF LIST#**":P 
RINT@481,"WHAT WOULD YOU LIKE NO 
W? ..." 
59699 IFINKEY$<>""THEN5§7PSELSE5 
Pb9D 
58769 CLS: PRINTTAB(25) "ENTER" 
58719 PRINTTAB(3)"PRINT ON YOUR 
PRINTER. .P" 

PRINTTAB(3) "DISPLAY THE LI 


PRINTTAB(3) "SHORT LIST ... 
sg" 


PRINTTAB(22) "==> "; 


I$=INKEYS: IFIS$=""THEN5 $762 
PRINTI$;" <==" 
IFIS="P"THEN59836 
IFIS="D"THEN5§619 
IFIS="E"THENEND 


37 


coutinued from Page 


REM GET LEFT STRING 
ES=LEFTS (A$,1) : RETURN 


2222 
2619 
3f Pp 
RY 

3295 
3912 
3029 


V=1 
IF E<68 THEN RETURN 
IF E>&HBF GOTO 3949 






Tontinued from Page 31 


325 
339 
331 


DRAW"C3BM145,19"4+G$ 
DRAW"C2BM159,16"+HS$ 
SOUND133,2 
DRAW"C3BM159,19"+H$ 
DRAW"C2BM169,18"+D$ 
SOUND89, 2 
DRAW"C3BM169,19"+D$ 
DRAW"C2BM169,5"+D$ 
SOUND 176,2 
DRAW"C3BM169,5"+D$ 



















Get the Sound Out 


You can send sound from your 80C to any amplifier 
simply by soldering a couple of connections from the 


RF modulator. 


Pin 3 from the RF modulator and any PC Board 
ground will give you audio output that you can send 


to any outside amplifier. 


Incidentally, Pin 3 is the third pin back from the 
rear of the 80C on the RF modulator. 
You should remember that opening the computer 


case will void your warranty. 


REM CHECK FOR VALID GAT ENT 


59818 IFIS="S"THEN5$889 

59828 GOTO5S799 

59839 PL=1 

59849 IFLR(PL) >STHENPRINT#-2,USI 
NG" #####">LR(PL) 7: PRINT#-2," "3 
59859 IFLAS$ (PL) <>""THENPRINT#-2, 
LAS (PL) 

59869 PL=PL+1 

59879 IFPL<=LA THEN5#84PELSE5968 
g 

56889 ‘*k*k SHORT LIST *** 

59898 PRINT"ONE MOMENT PLEASE .. 
~";PRINT" short list": FORS=1TO 
LA: FORT=1TOLA 

59990 IFLAS(S)=""THENLAS(S)=" ": 
GOTO5993 

59919 IFASC(LA$(S) )>96THENLAS(S) 
=""_":GOTO59936 

59929 IF LA$(S)=LA$(T)ANDS<>T TH 
ENLAS (S) =" 

58938 NEXTT:NEXTS 

56948 FORR=1TOLA 

59959 IFLAS$(R)<>" "THENPRINTLAS ( 
R) -"3"33Z=Z+1: LAS (Z) =LA$ (R) 
59969 NEXTR 

569968 '**k*ALPHASORT THE LIST*** 
51999 N=Z:S=1 


3939 V=6:RETURN 

3949 IF E>&HC9 THEN GOTO 3939 
3959 V=2:RETURN 

5899 REM CHECK FOR MORE DATA IN 
BS OR IN NEXT SECTOR 


5919 IF BS<>"" THEN AS=B$:BS="": 


GOTO 399 
5929 S=S+1:GOTO 252 


1999 FOR Z=1 TO 1$99:NEXT:GOTO19 


Listing 4: BATS 


pg ‘<BATS> 

1 *' (Cc) 1985, J. KOLAR 

18 PMODE3,1:PCLS3:SCREEN1,$ 

11 DRAW"C1BM9,135R44D1PREVUIPR1IGD 
3SR5SD5PR4GU4 HRI PDA PRI GUIBR4APGD1P 
PRIPSULPR1PD1PGR1IPU4PR29BD54L255" 
12 PAINT(5,145),2,1 

13 PAINT(5,199),1,1 

29 AS="F6E6" 

DS="E6F6" 

DRAW"C2BM=X; ,=Y;"+AS$ 







ENTER. 
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51919 PRINT: PRINT: PRINT" NO 
W SORTING ..." 

51929 MNS=LAS$(S) : IM=S:MX$=MN$: IX 
=S 

51938 FORI=S TO N 

51948 IFLA$(I)>MX$ THENMX$=LAS (I 
) :IX=I 

51959 IFLA$(I)<MN$ THENMNS=LAS (I 
): IM=I 

51968 NEXT 

51876 IFIM=N THENIM=IX 

51889 AAS=LAS(N) : LAS$(N) =LA$ (IX): 
LAS (IX) =AA$:N=N-1 

51899 AAS$=LA$(S) : LA$(S)=LA$(IM): 
LA$ (IM) =AA$:S=S+1 

51199 IFN>S THEN5192¢ 

511198 FORI=1T0Z:PRINTLAS (I) ;"%">; 
:NEXT 

51128 END 


Listing 2: SPEEDUP 


50901 POKE65497,@'HIGH SPEED 
596f1 POKE65496,9: POKE65494,6:SO 
UND128,28:SOUND128,26 ‘RESETTING 
TO NORMAL SPEED 

lA 


999% REM ALL DONE 

99168 SOUND 169,29:CLS:PRINT@27f, 
" DONE iT] 

9629 END 

19998 REM GAT DISPLAY 

19919 PRINT#D,:PRINT#D, :PRINT#D, 
GRANULE ALLOCATION TABLE LIS 


TING" 
fA 








GOSUB199 7 
35 DRAW"C3BM=X; ,=Y;"+A$ 
49 DRAW"C2BM=X ;,=¥ ;"4+D$ 

42 GOSUB1#9 

45 DRAW"C3BM=X; ,=Y;"+D$ 

59 DRAW"C2BM=X; ,=Y;"+A$ 

52 GOSUB19# 

55 DRAW"C3BM=X; ,=Y;"+A$ 

69 DRAW"C2BM=X; ,=Y;"+D$ 

62 GOSUB1P# 

65 DRAW'C3BM=X; ,=Y¥;"+D$ 

7 X=RND(25) *19-19: Y=RND(15) *19 
71 GOTO39 

199 FOR Z=1TO19:NEXT:RETURN “@ 


What’s Your ROM Version? 


With all the talk about new ROMs, you may be 
wondering exactly which ROM you have. If you have 
an older CoCo with Extended BASIC, just read the 
version number of your Extended BASIC at the top of 
the screen on power up. Then, to see which Color 
BASIC ROM you have, type EXEC 41175 and press 


If you have the new ROMs, Extended BASIC will 
be Version 1.1 and Color BASIC will be Version 1.2. 

On the CoCo 2, Color BASIC will always be Version 
1.2 or 1.3 (which are functionally identical). 


TURN OF THE SCREW 


The third installment of the “beginner's hardware course” 


An Introduction 





to Timing 


By Tony DiStefano 


Cec our journey into the 
CoCo, this month I will look 
into the heart of this and any 
computer — timing. All the hardware 
of the computer is controlled by timing. 
The most important part of the timing 
is to keep the CPU in step. What 1s a 
CPU, anyway? Well, the letters CPU 
stand for Central Processing Unit. The 
CPU inside the CoCo is the MC6809. 
The CPU, in a way, does all the work. 
It can move data from one part of 
memory to another, compare two 
values and act according to the result, 
add and subtract values and so forth. In 
fact, without the CPU, the rest of the 
hardware that makes up a computer 
would be worthless. The CPU is a very 
complex chip. It has data lines, address 
lines, interrupt lines, status lines and 
more. The timing that goes with the 
CPU is also important. OK, let’s get 
into it. It is a prerequisite to understand- 
ing how a CPU works. 

Up till now, when I talked about 
zeros and ones and the change from one 
to the other, it was considered to be 
instantaneous. There was no mention of 
how long it took to change from one 


state to another. In fact, we are dealing 
with real life, not just theory. Situations 
in theory rarely work in real life the way 
you want or expect them to. Welcome 
to the real world of delays. Ever caught 
an on-time airline flight? Ha! 

The first fact of the real world is 
propagational delay. Take, for instance, 
a simple inverter. Figure la shows an 
inverter. When there is a ‘1’ at the input 
there is a ‘0’ at the output. A ‘0’ input 
will give a‘l’ output. But when the input 
changes from one state to another, there 
is a short delay before the output 
changes. This delay is called the prop- 
agational delay, which means the 
amount of time it takes an electrical 
signal to go through a logic element or 
wire. 


Figure 1b shows a graph of the input 
and the output of an inverter. The X- 
axis (from left to right) shows the 
passing of time. This can be in seconds, 
hundredths of seconds, thousandths of 
seconds and even millionths of seconds. 
When no time base is given, then time 
factor is not relevant. Typical delay 
times for the TTL family (more on chip 


Figure la Figure 1b 
j 
IN | | | 
O 
IN OUT 
I 
OUT | | | 
Oo 
TIME op 
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families in later articles) is from five to 
30 ns (ns = nanoseconds). The Y-axis 
usually shows the binary level of ‘0’ and 
‘1’. When two or more signals are shown 
that are related to each other, they are 
shown on top of each other with the left- 
to-right passing of time common to 
each. . 

Getting back to Figure |b, we see the 
passing of time and the relation of the 
input to the output. There is no delay 
shown in this diagram. To show the 
delays of each signal for a given com- 
plex gate would confuse the diagram. 
Instead, an overall delay is given for the 
gate. But, in order to get used to the idea 
of delays, Figure Ic shows the time 
delays of a typical inverter. Along with 
the delay of the signal there is also the 
rise and fall time. The rise time of a 
signal is described as the time it takes 
for a given signal to reach 90 percent of 
maximum voltage from the 10 percent 
voltage level. The fall time of a signal 
is described as the time it takes for a 
given signal to drop to 10 percent 
voltage from the 90 percent voltage 
level. In the case of the CoCo, the 
voltage considered a logical level of ‘1’ 


Figure Ic 
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(or H]) is five volts. The logical level ‘0’ 
(or LO) 1s, of course, zero volts. The 
actual working voltages may be slightly 
different. 

Delay, rise and fall times are impor- 
tant mainly to the designer of the 
system. When an engineer designs a 
computer he must know these timings 
and make sure that all operations are 
within the given limits. For example, 
two signals go to one gate, but one goes 
through several gates first. Each time 
the signal travels from one gate to 
another there is more delay. If the signal 
is delayed enough, an improper signal 
output results. 

It sounds like I’m making a big deal 
of delays. While it is important, it is not 
a major concern to computer hackers 
(or should I use the term hobbyist?) and 
even less to end users. More important 
to us 1s another kind of delay. It is 
known as “access time,” which means 
the mean time between the request for 
memory and the actual valid data. 


Let us look at a typical memory chip. 
There are thousands of gates and tran- 
sistors inside this chip. All of these gates 
inside the chip cause a significant delay 
between the time when the address to 
the chip is valid and the time when the 
data output appears on the data bus. 
This is known as access time. When 
talking about memory, an important 
parameter is access time. These access 
times can range from super-fast static 
memory at about 10 ns to very slow 
dynamic memory at 450 ns and slower. 
It is this limitation that controls and 
limits the speed of CPUs. Figure 2a 
shows the read cycle timing diagram of 
a memory chip. Figure 2b shows the 





ADDRESS 


write cycle for the same chip. What 
follows is a description of what each line 
on the diagram means. 


Address — These are the address lines 
that select what byte is to be accessed. 
It is shown with two lines, one high and 
one low. It is shown this way because 
there are usually several lines and since 
the timing is the same no matter what 
byte you access, it is not relevant which 
address line is high or which line is low. 
The two lines (one on top and one on 
the bottom) represent any given address 
within the chip. Where the lines criss- 
cross means a change of address. That 
is when the CPU is finished with that 
byte and requests another by putting 
another address on the bus. Access 
times are always measured with respect 
to the address change from the CPU. 
Actually, it starts when the address is 
stable, better known as a “valid ad- 
dress.” 


Chip Select (CS) — Remember the *CS 
line on memory chips in past articles? 
It is used to select or activate the chip. 
From the diagram of the read cycle, we 
can now see the relation between when 
the address is valid, the *CS line and 
when the data is valid. 


Data out — This, of course, is the data 
that the CPU requested. Notice the data 
valid area. That is the time when the 
data that appears on the bus is the data 
that is held in that memory location. 
Notice the top and bottom dual line 
display. It has the same description as 
address lines, some are ones and some 
are zeros. The line in front of the data 
valid section is halfway between zero 
and one. That means the data lines are 





Figure 2b 
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tri-state and no valid data is input or 
output. The shaded area on both sides 
of the data valid window is the transi- 
tion time between tri-state and data 
valid. In this area, data lines are chang- 
ing to their proper values. A read in this 
area will not yield valid data. 


Read/Write — The *R/W line is used 
to select a read cycle or a write cycle. 
Straightforward, no problems there. In 
the CoCo this line is logical ‘1’ to read 
and ‘0’ to write. 


The following is a description of all 
the relevant parameters used in Figures 
2a and 2b. 


t(rc) — Read Cycle Time: the time it. 
takes for a complete read cycle given in 
ns. 


t(a) — Access Time: the delay between 
a valid address and data valid. 


t(co) — Chip Select to Output Valid: the 
delay between when the *CS is active 
and the data is valid. This is only true 
with a valid and stable address. 


t(cx) — Chip Select to Output Active: 
same as t(co) but not to data valid; to 
when the data lines start changing from 
tri-state to output. Usually of minor 
importance. 


t(otd) — Output Tri-state from Deselec- 
tion: the time that the data stays valid 
after the *CE goes inactive or deselects. 


t(oha) — Output Hold from Address 
Change: the time that the data stays 
valid after an address change is de- 
tected. 
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t(wc) — Write Cycle Time: same as the 
t(rc) except for a write cycle. 


t(w) — Write Time: the minimum time 
the write line has to remain low. 


t(wr) — Write Release Time: time 
between the *WE line deselects and a 
change of address. 


t(otw) — Output Tri-state from Write: 
the time it takes the data lines to go to 
tri-state from a write request. 


t(dw) — Data to Write Time Overlap: 
the time data must be stable before the 
*WE line deselescts. 


t(dh) — Data Hold from Write Time: 
the time data must be stable after the 
*WE line deselects. 


Figures 2a and 2b show the read and 
write cycle paramaters for a typical 
memory chip. Though these are not the 
memory chips inside the CoCo, the 
timing and paramaters are quite similar. 


Now with no further delays, it is time 
to look into the CPU . . . well, sort of! 
There is one more thing we must look 
into; it is CPU related, though. We are 
getting closer. It is the master clock, 
which is a master reference wave form 
used to synchronize all of the logic in 
a system. 


The master clock is usually the high- 
est frequency in the computer. All other 
timings are derived (divided) from this 
clock. The CPU clock is the speed or 
frequency at which all instructions and 
data are retrieved and stored to mem- 
ory. Depending on the system design, 
the CPU clock can be equal to the 
master clock, or any division thereof. In 
the case of the CoCo, the master clock 
frequency is 14.31818 MHz (mega-hertz 
or million hertz) and the CPU clock 
frequency is 1/16 that of the master 
clock at 0.8948 MHz. Well, there are 
two clock speeds in the CoCo. Under 
special conditions, the CPU can work 
at 1.8 MHz. 


Figure 3 
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/tpe 250 | | NS 
pta | ACCESSTIME 250 

/tco | CHIPSELECTTOOUTPUT | 85 | NS 
jtcx | CHIPSELECTTOOUTPUT 10 |_| NS 


OUTPUT TRI-STATE FROM 


WRITE CYCLE 










WRITE CYCLE TIME 
rw writeTiMe SS | NS 
Cie | WRITE RELEASE TIME =a | Ns 
Ctow | OUTPUT 3STATEFROM WRITE | | NS 
rigw | DATA TO WRITE TIME OVERLAP 133 || NS 
righ | DATA HOLD FROM write TIME 0 | | NS 








250 


NS 


Tp 
OUTPUT HOLD FROM ADDRESS 20 NS 
CHANGE 


UNIT 
| | NS 


Now you might say, “Wow, my CoCo 
has a clock rate of only .894 MHz!” 
Compared to that of the 4 MHz of other 
computers, that may or may not be 
slower. You see, it gets more compli- 
cated. The CPU clock does not always 
mean the net speed of the computer. 
There are some other factors involved, 
such as synchronous I/O, as opposed to 
asynchronous I/O. 

Let’s look at synchronous I/O first. 
As the word implies, synchronous I/O 
means that any memory, read or write, 
is synchronized. Synchronized to what? 
The CPU clock, of course. On any given 
clock cycle, the CPU can do one I/O. 
You know exactly when the CPU will 
need the bus. It corresponds to the clock 
cycle. In an asynchronous situation, the 
CPU requires more than one clock cycle 
to do a read or write. Asynchronous I/ 
O requires either three or four cycles 
depending on what kind of I/O it is 
doing. On this type of CPU, signals are 
required to tell memory or other devices 
that an I/O has started. 

Just about now, a little bit of math 
is required. Given that the clock fre- 
quency of the CoCo is 894886 hertz or 
0.894 MHz, one clock cycle is 1117 
nanoseconds. The way I did this is to 
transfer from frequency to time period. 
The equation used is: 


T=1/F 


where ‘T” is in seconds and ‘F” (fre- 
quency) is in hertz. So the frequency of 
C.894 MHz is a time period of 
.000001117 seconds, or 1117 nanosec- 
onds, or 1.117 microseconds. Now, 
when we talk about speed, we can say 
that the CoCo can do about one I/O per 
microsecond — a much more accurate 
way to measure the effective speed of a 
CPU. 

I hope these articles about the hard- 
ware of the CoCo are informative to 
you. Also, I hope I am not going too 
fast; it is hard for me to judge what 
audience I am writing for. If you have 
some comments to make, a direction to 
take or something you don’t under- 
stand, write to me through RAINBOW 
and I'll try to answer the interesting and 
common ones here in this column. Next 
time, we'll look deeper into the heart of 
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CoCoConnection 


To utilise this program, you will require a 
ZoCoConnection - available from ourselves, or from 
slaxland Computer Services. 

This unit allows you to connect your CoCo to the 
sutside world - ie, to _  nmodels, Burgular Alarms, 
Printers, Synthesisers - and so on. 


BIPMAN 


by Peter Feldtmann 





(Sorry 'bout the trains project - time 
flies when you’ve got a magazine to run! 
I hope to be able to give you further 


CoCo. 
All the programs occuring in this section 
of the magazine are supplied with the 


details on that project NEXT month! G.) 


This month Peter Feldtmann has given us 
this routine which enables a multitude of 


Our 


operations from simple keyboard inputs to 


The Listing: 


130 FORJ=1 TQ COUNT 


CoCoConnection when you purchase it. 
thanks to Blaxland Computer Services 
for passing on Peter's work. You can see 
the CoCoConnection operating at Blaxland. 


0 


: 135 PRINT ” " 3020 IF A$="Y" THEN 4000 
| 136 PRINT” ” 3030 IF A$<>"N" THEN PLAY "GFEDC 
i 1 'BITMAN for the CoCoConnection 140 GOSUB 1000 ":GOTO 3010 
| This program enables sequence 150 GOSUB 2000 3040 RUN 
s of bit combinations to be set 160 NEXT J 4000 INPUT "ENTER FILENAME "; NAM 


up including delays, 
eyboard input. 
Prog by Peter Feldtmann 

C/o Blaxland Computer Services. 
2 GOTO10 

3 SAVE” BITMAN: 2”: STOP 

10 REM INITIALIZATION ROUTINE 
20 REM INITIALIZE PORT 2B AS OUT 
PUTS 
30 POKE 65415,4:POKE 65414, 255: P 
OKE 65415, 0: POKE 65414, 255: POKE 
65415,4 

40 REM INITIALIZE PORT 2A AS INP 


by simple k 


170 FOR J = 1 TO COUNT 

180 PRINT USING” ####" ; NTP (J) 

190 NEXT J 

200 PRINT :PRINT’PRESS ANY KEY T 
O CONTINUE” 

205 AS=INKEY$: IF A$="" THEN 205 
210 FOR I = 1 TO COUNT 

220 POKE Q,NTP(1) 

230 FOR J = 1 TO D(I):NEXT J 

240 NEXT I 

250 PRINT :PRINT’PRESS ANY KEY T 
O CONTINUE” 

255 AS=INKEY$:1F A$="" THEN 255 


$ 

4010 OPEN ”0”,-1, NAM$ 

4015 PRINT #-1, COUNT 

4020 FOR I[=1 TO COUNT 

4030 PRINT #-1,NTPC(I), DCI) 

4040 NEXT I 

4050 CLOSE 

4060 RUN 

9000 PRINT "LOAD SEQUENCE FROM T 
APE (Y/N) "; 

59010 A$S=INKEY$: IF A$="" THEN 501 
0 


9020 IF AS="Y" THEN 6000 


UTS 260 GOTO 3000 5030 IF A$<>"N" THEN PLAY’’GFEDC” 
50 POKE 65413, 0:POKE 65412, 0: POK 1000 PRINT: INPUT” ENTER OUTPUT NU :GOTO 5000 
E 65413,4 MBERS TO SET"; NUMS$ (J) 5040 GOTO 100 


60 CLS: PRINT "PORT 2A INITIALIZE 
D AS INPUTS” 

70 PRINT 

80 PRINT "PORT 2B INITIALIZED AS 
OUTPUTS” 

90 GOTO 5000 


1010 FOR I =1 TO LENCNUMS$(J)) 
1020 NS=MIDS(NUMS$ (J), 1,1) 

1030 A=INSTR('87654321" , N$)-1 
1040 TMP =2°A:NTP(J) = NTPCJ) + 


1050 NEXT I 


6000 INPUT "ENTER FILENAME TO LO 
AD "; NAMS 

6010 OPEN "I",-1, NAMS 

6020 INPUT #-1, COUNT 

6025 DIM NTPCCOUNT) , D(COUNT) 
6030 FOR I=1 TO COUNT 


100 CLS:Q = 65414 1060 RETURN 6040 INPUT #-1,NTPC1),D(1) 
110 INPUT’ PLEASE ENTER NUMBER OF 2000 INPUT” PLEASE ENTER DELAY”; D 6050 NEXT 
SETTINGS” ; COUNT (J) 6060 CLOSE 


120 DIM NPT(COUNT) , NUM$ (COUNT), D 


2010 RETURN 


6070 GOTO 170 


(COUNT) 3000 PRINT "WANT TO SAVE THIS SE 10000 POKE150, 41: PRINT#-2, CHR$ (2 
125 PRINT "” " QUENCE (Y/N) "; 7); CHR$ (29) ; CHRS (27) ; CHR$ (82) ; CH 
126 PRINT ” " 3010 AS=INKEY$: IF AS="" THEN 301 R$ (32) 
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BARDEN’S BUFFER 


Listening to 


Your CoCo with 


Assembly Language 


By William Barden, Jr. 


ne of the nice things about as- 
QO: language is that it gives 

you access to parts of the com- 
puter that just can’t be handled through 
BASIC. Take sound effects and music, 
for example. Sure, you can use SOUND 
in Extended BASIC to sound a tone for 
a certain length of time. You can also 
use the PLAY command in Extended 
BASIC to play musical notes. However, 
with BASIC you are limited to these 
short, simple tones. Assembly language, 
on the other hand, allows you to create 
a variety of complex sounds. Want a car 
crash, a phaser blast, or the sound of an 
Apple Ile being dropped from the top 
floor of One Tandy Center? Assembly 
language is the only way to go. Would 
you believe that these sounds are al- 
ready programmed into your CoCo? I'll 
show you how to unleash the CoCo’s 
sounds in this column. Actually, there'll 
be two major themes this month. First, 
we discuss assembly language sounds. 
Secondly, I’ll show you how to plan and 
use a Sound program, for those of you 
who are still a little shaky about using 
EDTASM+ or Disk EDTASM. As I 
mentioned last month, you OS-9 users 
can still benefit from the column, but 
the examples will be in EDTASM 
format. 


Color Computer Sounds 

Sounds on the Color Computer are 
generated quite differently from sounds 
on the Tandy 1000 or other systems. 
Many other systems contain a sound 
synthesizer chip. This is an integrated 
circuit similar in appearance to many of 
the chips you'll see inside the CoCo. 
Internally, though, a sound synthesizer 
chip contains logic to generate square 
waves or sine waves and to create 
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different envelopes that determine the 
wave shape. 

The Color Computer does not use a 
sound synthesizer chip. Instead, it 
creates sounds by electronic logic that 
makes up a digital-to-analog converter. 
I'll call this logic a DAC for short. The 
CoCo DAC is a “six-bit” DAC, meaning 
that it will convert a digital value of zero 
through 63 into 64 different voltage 
levels. The CoCo DAC uses the upper 
six bits of a byte in the conversion. Here 
are the results we'll get with a range of 
values: 


As Produced by 
Color Computer 


Figure 1: Sine Waves 
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Digital Value 


00000000 
00000100 
00001000 
00001100 
00010000 
00010100 
00011000 


11111000 
11111100 


16K 
ECB 


Voltage Output 


.23 volts 


As Produced by 
Electronic Devices 








Note that the the lower two bits of the 
digital value are always zero — only the 
upper six bits change. You can also see 
that the step size of the voltage output 
is constant. There is always about 0.07 
volts between one digital value and the 
next. 

All well and good, but how does the 
DAC create sounds? Let’s take an 
example. The purest sound is a sine 
wave, shown in Figure 1. The second 
part of the figure shows a comparable 
sine wave generated by the DAC. When 
fed into an audio amplifier, the result 
will be a relatively pure musical tone, 
similar to that produced by an elec- 
tronic doorbell, or a Dolby test tone. 


If you look closely at the DAC sine 
wave, you can see that it’s made up of 
a series of discrete voltage levels, giving 
it a “staircase step” appearance. The 
closer the interval is between steps, the 
smoother the sine wave becomes, as 
shown in Figure 2. 


This sine wave was generated by the 
CoCo DAC from a table in ROM. 
Believe it or not, this is the way the 
CoCo generates the 1200 and 2400 hertz 
(cycles per second) tones used for 
cassette tape output! (I'll tell you where 
to find the table later.) 

The distance from crest to crest, or 
from trough to trough of the sine wave 
is called the period of the sound. The 
reciprocal of the period is the frequency 
of the sound. A 600 hertz tone, then, has 
a period of 1/600 seconds or about 1.66 
milliseconds (1.66 thousandths of a 
second). 


More Complex Sounds 

Imagine tuning in MTV and listening 
to a new heavy metal band playing sine 
wave synthesizers. It would drive the 
viewers to Mozart! Most natural and 
instrumentation sounds are made up of 
a combination of frequencies, as shown 
in Figure 3. Random sounds, such as 
surf or crowd noise, are made up of an 
even combination of all frequencies, 
giving a hissing effect. These are the 
sounds that BASIC cannot create on the 
CoCo with simply the SOUND and PLAY 
commands. 


A music synthesizer not only pro- 
vides the capability to generate the 
complex sound of strings or a flute, but 
it also allows the user to define an 
envelope for the sound. The envelope 
describes how the sound varies in loud- 
ness and is sometimes called an ADSR, 
for attack, decay, sustain, release, as 
shown in Figure 4. A musical instru- 
ment such as a piano has a sustained 
sound, while an instrument such as a 
snare drum has a much shorter duration 
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sound. Both envelopes are different, as 
shown in the figure. Synthesizers also 
provide the capability to create enve- 
lopes not produced by musical instru- 
ments, such as a sound that starts off at 
the minumum loudness and builds to a 
maximum, producing a sound like a 
musical tone played backwards on a 
tape recorder. 

Many complex sounds can be gener- 
ated by the CoCo, at the expense of 
building a table of values that define the 
wave shape of the sound. Another 


(9 Intervals) 


(18 Intervals) 


alternative is to use the patterns found 
in the CoCo’s ROM, selecting those 
that produce the sounds you’re looking 
for. A short section of BASIC ROM code 
from $A9EB through $A9FF on my 
systems, for example, produces the 
wave shape shown in Figure 5 when the 
upper six bits are considered. 


Any small section of code can be 
repeated over and over, and the interval 
between outputs to the DAC can be 
varied by timing loops within the assem- 
bly language program to produce differ- 


Figure 2: Staircase Steps in Wave Forms 








Figure 3: Typical Wave Form of Complex Sound 
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ent frequencies. As the shortest timing 
loop can produce periods that are about 
10 microseconds wide, the highest 
frequencies that can be produced in 
assembly language are 100,000 hertz 
radio waves (!), far above the 6,000 
hertz sound waves that can be passed 
through the CoCo electronics. That’s 
the beauty of assembly language here — 
there’s plenty of time left over. 


Talking to the PIA of the CoCo 

The output of the DAC goes both to 
the cassette output and to a device that 
routes the DAC output to the television 
sound channel, as shown in Figure 6. 
The MC14529 routes the DAC output 
to the TV sound channel by two “select” 
bits set by the following BASIC com- 
mands: 


180 POKE &HFFQ1,PEEK(&HFFOQ1) 
AND &HF?7 ‘select bit @ 

190 POKE &HFFO@3,PEEK( &HFFO@3) 
AND &HF? ‘select bit 1 

200 POKE &HFF23,PEEK(&HFF 23) 
OR 8 ‘set 6-bit sound 


The third POKE here sets six-bit sound 
as opposed to a single-bit “on/off” 
sound that can also be used. 

Once these commands are given, they 
need not be output again — the DAC 
is routed to the TV sound channel for 
the duration of the program. 

The six inputs to the DAC are con- 
trolled by six signals from another 
source, as shown in the figure. The 
source here, as in the case of the two 
select signals, is a PIA, or peripheral 
interface adapter. The CoCo uses a 
number of PIAs to provide program- 
mable signals to control color graphics, 
sound, cassette operations, and RS- 
232-C operations, to name a few. In this 
case, the PIA acts as a simple memory 
device, holding whatever six bits have 
been sent to it until another six bits are 
sent. In BASIC the six PIA to DAC 
outputs are set by 


1000 POKE &HFF2@, VALUE*4 
‘VALUE is @ - 63 


In assembly language, the instruc- 
tions are very similar: 


value is VVVVVV00 
outputs value to DAC 


LDA #VALUE 
STA $FF20 


And that’s about all there is to pro- 
ducing sounds on the Color Computer 
— route the DAC output to the televi- 
sion channel and then send out the 
proper patterns to the PIA/DAC, 


spaced at even intervals, repeating the to play a variety of sounds, natural and 


patterns if necessary. 


Putting Together a Sound 
Assembly Language Program 

Now that we know enough about the 
sound capabilities of the Color Compu- 
ter, we can put together a short program 


Decay 


unnatural. What we’re looking for is a 
program that will route the DAC output 
to the television sound channel and then 
output a series of digital values to the 
DAC, spaced at regular intervals. We 
also need the capability of repeating a 
series of values for a certain number of 


Sustain 


ADSR for 
piano 


ADSR for 
snare drum 


Figure 4: Sound Envelopes 


Figure 5: Table Driven Sounds 











times. 

The data that creates the sounds will 
be held in a table in memory, either a 
table of values that already exist, such 
as ROM values, or a table that we will 
create. Since we want to make the 
program handle a table of varying 
length, we'll need to specify a table 
length. An alternative to this is to use 
a “terminating value” at the end of the 
table to mark the end. However, we'd 
like to use ROM data for some of the 
sounds, and it’s awfully difficult to write 
data to ROM (although one of my 
CoCos tries this on occasion). 

To make the table values easier to 
generate, we'll also let the program shift 
the data so that it’s aligned in the upper 
six bits. That way we can put values of 
zero through 63 in memory bytes with- 
out having to worry about what the 
values would be in their shifted form. Of 
course another approach is to “pack” 
the data into consecutive six bits, but 
this would present a real chore in 
creating and maintaining the table of 
data values. 

What we have so far, then, is a pro- 
gram that will read a table of values 
starting from some given memory loca- 
tion and ending at another memory 
location, with each byte in the table 
representing an output value of zero 
through 63. Such a table is shown in 
Figure 7 — it’s the encoded form of a 
simple bell sound using a square wave 
frequency. 

Another thing that we need to specify 
to the program is the interval between 
DAC outputs. Remember, the smaller 
the increment, the less rough the final 
wave shape will be. What is a reasonable 
increment to implement? We know that 
we'll have to have a timing loop in the 
program to count off the time between 
DAC outputs. (Another alternative, 
however, would be reading in a PIA bit 
that shows the sync clock for video, 
appearing every 63.5 microseconds.) 
Even with assembly language, instruc- 
tions take a finite time and we can't 
define a small enough interval by the 
time the program is coded. We'll let the 
interval be specified by a count parame- 
ter to the assembly language program 
and see what the minimum interval 
turns out to be in the final result. 

A final parameter that must be spec- 
ified to the program is the number of 
times the table must be repeated. A 
repeat capability is handy to have to 
generate wave forms that are periodic, 
such as the sine waves and square waves 
mentioned above. We may want to 
repeat thousands of times with short 
tables of values to get a sound that ts 
seconds long. 
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PIA 
Address 
$FF20 


Start Table ——> 


0 
8 
0 
6 


End of Table —> 


To TV 
Channel 
Modulator 


Select 
inputs 
(From $FFO1, 
$FFO3) 


Figure 6: DAC Routing 





eT 


Figure 7: Table for Bell Sound 
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At this point we have these parame- 
ters that must be passed to the assembly 
language program: 


@ A 16-bit address that specifies the 
start of the table. 

@ A 16-bit address that specifies the 
end of the table. 

@ A 16-bit delay count that deter- 
mines the time delay between out- 
puts to the DAC. 

@ A 16-bit repeat count that deter- 
mines the number of times that the 
table data is to be repeated. 


Program Design Considerations 

Before we start coding the program 
we need to make several more decisions 
about the basic design: 


@ Is this to be a program or a subrou- 
tine? 

@ Where in memory will the program 
be? 

® Where in memory will the table be? 


Programs Versus Subroutines 

We could make the Sound program 
a full fledged program that could be 
loaded by LOADM and executed by EXEC 
(or from cassette by CLOADM and EXEC). 
However, this doesn’t make too much 
sense, as the program isn’t really a full- 
blown program, but simply a short 
piece of code that can be used to (pre- 
sumably) generate short snatches of 
sounds. For that reason, it makes better 
sense to design it as an assembly lan- 
guage subroutine that can be called by 
BASIC (or other languages). That way 
we can use the convenience of BASIC to 
do all of the housekeeping and just call 
the assembly language subroutine when 
a sound is required. 

The commands that Extended BASIC 
uses to interface to assembly language 
are DEFUSR and USR. DEF USR tells BASIC 
where the assembly language code is 
located, while USR actually transfers 
control to the assembly language sub- 
routine. The assembly language subrou- 
tine must always end with an RTS 
instruction, a ReTurn from Subroutine. 
The RTS acts just as a BASIC statement 
does, returning control back to the 
BASIC statement after the USR. The 
typical call to our yet-uncoded sound 
subroutine would look like this: 


11@ DEFUSR® = &H3E@8 done only 
once in BASIC 


33@ A = USRO(@) ‘call assembly 
language sub 
340... “return here 
The dots between statements 110 and 
2100 represent other BASIC statements 
PAGE 
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that are executed. One thing that must 
be done before the subroutine is exe- 
cuted, of course, is to set up a table of 
data in memory that the subroutine will 
use to generate sounds, or to point to 
the table if it already exists (such as the 
ROM sine wave table). 


Where in Memory Will the 
Subroutine Be? 

The DEFUSR statement defines where 
the assembly language subroutine is in 
memory. But just where should it be? 
There are many places it could be, but 
the overriding rule is to put it out of the 
way of BASIC. BASIC is constantly 
changing memory by adding variables, 
manipulating strings, and using a stack 
area, and any assembly language code 
must be put into an area that BASIC 
cannot touch. 


Figure 8: 
CLEAR 499, &H3DFF 
DEFUSRY = S&H3EG8 
DATA &HXX, S&HXX, 
DATA &HXX, 6&HXX, 


READ ML 
POKE 1,ML 
NEXT I 
POKE 
POKE 
POKE 


339 A = USRG(D) 
340... 


Protected 
Area 


1 
2 
3 
4 
5 
6 
7 
8 


ACTUAL 
PROGRAM 
AREA 


&HXX 
. &HXX 
FOR I = &H3EQ@ TO &H3E2A 


SHFFQ@1,PEEK(&HFF@1) AND &HF7 
SHFFQ3 , PEEK(&HFF@3) AND &HF7 
SHFF23, PEEK(&HFF23) OR 8 


One of the best ways to do this is to 
use a protected area of high memory. 
The CLEAR statement in BASIC is specif- 
ically designed to protect memory so 
that assembly language subroutines can 
be put there. Doing a 10@ CLEAR 
40@,&H3DFF for example, protects all 
memory from locations & H3E00 on up 
to the top of your RAM memory (512 
bytes less than 16K to the top of mem- 
ory). We'll use this area for the Sound 
program, and you might keep it in mind 
for your own programs. Of course, if 
you have a 64K system, you could use 
100 CLEAR 400,8&H7DFF. 

The 400 value, by the way, establishes 
the size of the BASIC string storage area. 
Use a larger value if you have many 
string manipulations in your program 
or if you have more than 64K. 

How does the assembly language 


‘done at beginning of BASIC 
‘done only once in BASIC 
‘machine language form 
‘of assembly language 
‘subroutine 

‘move the machine language to 
'the &H3E@9 area - done once 


‘select bit @ 
‘select bit 1 
‘set 6-bit sound 


‘call assembly language sub 
‘return here 





Table Start 


Table End 


4 Parameters, 


Repeat Count 6 Bytes 


Delay Count 


rw/ 





Figure 9: AL Program Area 
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code actually get into the & H3E00 area? 
We could load it in by a LOADM (or 
CLOADM), but it’s a real convenience for 
a short subroutine like this to encode it 
into BASIC DATA statements and include 
it in the BASIC program. That way we 
have everything in one neat little pack- 
age. The DATA statements use values 
taken directly from the assembly lan- 
guage listing and look like this: 


12@ DATA &HXX, &HXX, . . 
121 DATA &HXX, &HXX, . . 


- &HXX 
- &HXX 


where the XXs stand for machine lan- 
guage values. 

To move the machine language values 
in the DATA statements, a simple FOR/ 
NEXT loop in BASIC is used: 


140 FOR I = &H3E0O TO &H3E2A 
15@ READ ML 

16@ POKE I,ML 

170 NEXT I 


The skeleton form of our BASIC call 
now looks like this (including signal 
routine to the TV channel): See Figure 
8. 


Where’s the Table? 

The next question to resolve before 
actually coding the program is to deter- 
mine where the table of data is to be and 
how to tell the assembly language 
program where it is. We mentioned 
before that we'd like to explore some of 
the areas of ROM to see what kinds of 
sounds could be generated from the 
relatively random data found there. For 


that reason, we can’t just use a preas- 
signed area of memory as a table. The 
table address, therefore, will not be 
fixed. 

In addition to the table address, we 
have to consider how the other parame- 
ters will be passed to the assembly 
language program. The USR statement 
allows for passing one 16-bit parameter 
to the assembly language program. This 
would only take care of one parameter, 
though, and we have four — table start, 
table end, delay count, and repeat 
count. 

There are a number of methods that 
can be used to pass more than one 
parameter, but we'll.choose a simple 
one for this program — we'll put the 
parameters in memory right before the 
program at &H3E00. The assembly 
language program area will now look 
like Figure 9. a block of four parameters 
in eight bytes, followed by the (still) 
undefined assembly language code. The 
parameters can easily be poked into the 
&H3E00 area from BASIC, and we can 
change all of them at any time by doing 
a series of POKEs. 


Coding the Program 

Whew! We're finally at the point at 
which we can start coding the Sound 
program. Everything we’ve done up to 
this point has been program design. 
Generally, the more time spent in de- 
sign, the fewer changes we'll have in 
coding and debugging the program. 

Before coding this program, I gave 
some thought about what registers 
could be used to hold the parameters. 
In such a short program, it is possible 
to dedicate registers for specific func- 
tions. In longer programs, of course, the 


Listing 1: Sound Program in Assembly Language 


P9199 
P911g 
99129 
99139 
99149 
P9L5P 
99169 
99179 
99189 
99199 
P9299 
99219 
99229 
99239 
PP249 
99259 
P9269 
$9279 


3E99 
3EGP 
3E98 
3E9C 
3EQF 
3E12 
3E14 
3E15 
3E16 
3E19 
3E1B 
3E1E 
3E29 
3E24 
3E26 
3E28 
3E2A 


1GAE 8C F8 
AE 8C F7 
EE 8C EE 
A6 Cg 

48 
48 
B7 
LF 
83 
26 
11A3 
23 
31 
26 
39 


FF29 
19 
PPP1 
FB 

8C DE 
EC 

3F 

ES 


P9BP 
99999 TOTAL ERRORS 
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ORG 
RMB 
LDY 
LDX 
LDU 
LDA 
LSLA 
LSLA 
STA 
TFR 
SUBD 
BNE 
CMPU 
BLS 
LEAY 
BNE 
RTS 
END 


S3EPP 
BLK 8 
START 


BLK, PCR 
, U+ 


DACPP5 
DACG19 


SFF2¢ 

X,D 

#1 

DACG29 
BLK+2, PCR 
DACG19 
-1,Y 
DAC9P5 


DAC929 
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registers can’t be dedicated to any 
specific thing, but handle all kinds of 
tasks. 

In Sound, the registers are set up this 
way: 


@ Register A is used as the main “work- 
ing” register, holding the values to be 
sent to the DAC and other results. 

@ Register X holds the 16-bit delay 
count. 

@ Register U holds the table start in- 
itially, but is incremented by one to 
point to successively higher values in 
the table. 

@ Register Y holds the 16-bit repeat 
count. 


Having as many things as possible in 
registers speeds up Sound considerably. 

The complete listing of Sound is 
shown in Listing 1. Here’s a short 
discussion of how it works. First, the 
repeat count is loaded into ‘Y’ from the 
parameter block (it’s four bytes from 
the address in ‘U’). This repeat count 
will be decremented down to zero 
through the program. When it reaches 
zero, the program has repeated the table 
values the number of times specified in 
the repeat count. Notice that this is a 
“Program Counter Relative” instruc- 
tion that does not specify an absolute 
address. This and other instructions in 
Sound are relocatable, meaning that the 
machine language code can be moved 
anywhere in memory without having to 
reassemble the program. 


Next, Register X is loaded with the 
delay count and Register U is loaded 
with the table address count from the 
parameter block. 


PARAMETER BLOCK 
BLK+4,PCR GET REPEAT COUNT 
BLK+6,PCR GET DELAY COUNT 
GET TABLE POINTER 


GET VALUE 
ALIGN TO 6 BITS LEFT 
BY TWO SHIFTS 
SEND TO DAG 
GET DELAY COUNT 
DECREMENT BY ONE 
GO IF NOT DOWN TO 9 
TEST FOR END 
GO IF NOT END OF TABLE 


DECR REPEAT COUNT BY ONE 
GO IF NOT DOWN TO 9 
RETURN TO BASIC 





a nnnnnnnnnnnneeneeeeneeeeeeeeeeeeeeeeeeeeo,, Ss ee 


The code in DACO020 and the next 
instruction is the innermost loop in the 
program. Before this loop, a DAC value 
as been output by the STA $FF20 and 
he delay count has been loaded into 
Register D from Register X by the TFR 
X,D instruction. The SUBD decre- 
ments this count and the BNE instruc- 
tion causes a loop back to DAC020 
while the count in ‘D’ is not equal to 







Listing 2: SOUND 












GF MRARHRERRKKAEEKKKERKKERKKKER 
91 '*SOUND PROGRAM EXERCISER * 
92 '*RELOCATES AND CALLS AL * 


93 '*SOUND PROGRAM. * 
94 'KEAKKKKKKKKKKKKKKAKKKKKKKE 


19 
119 












CLEAR 499, &H3DFF 
DEFUSR£=&H3EP8 






























ust OATS capprclgg: egy: tmtp ro. 
122 DATA &H19,&HAE, &H8C, &HF8 . The code from DACO10 through five 
123 DATA &HAE, &H8C, &HF7, &HEE instructions from the end (BNE 
124 DATA EHee, &HEE, SHAG , euCe DAC010) is the next innermost loop. It 
126 DATA &H2f,&HIF,&H19, &H83 makes a complete pass through the 
127 DATA &HOP,&HO1, &H26, GHFB table of values, sending each value out 
128 DATA &H11,&HA3, &H8C, &HDE to the DAC and delaying with the inner 
133 DATA &H23, GHEC, 6H31, &H3F loop just discussed. The two LSLA 
@ DATA &H26,&HES, &H39 ; , é 
149 FOR I=&H3E@9 TO &H3E2A instructions shift the data from the table 
159 READ ML to align it in the six high bits of ‘A’. The 
ey POKE I,ML table data is pointed to by ‘U’, which 1s 
@ NEXT I as 
18% POKE &HFFQ@1,PEEK(&HFF#1) AND |uSed to load the data into A . The LDA 
&SHF7 ,U+ also increments the pointer value in 
199 pie SHFF93,PEEK(&HFF£3) AND ‘Ij by one after the load is done. The 
296 POKE &HFF23,PEEK(&HFF23) ORS8 CMPU BLK+2,PCR at the end of the 









219 INPUT "TABLE START";TS loop continually compares the pointer 
229 INPUT "TABLE END"; TE value in ‘U’ to the end of the table value 
239 INPUT "REPEAT CNT";RC 

248 INPUT "DELAY CNT";Dc at two bytes from the parameter block 



















258 POKE &H3E99, INT (TS/256) start. 

269 soe &H3EP1,TS~INT(TS/256) * The outermost loop is from DAC005 

279 POKE &H3E$2,INT(TE/256) through the BNE DAC005. It repeats a 

288 POKE &H3E%3,TE-INT(TE/256)* pass through the table values for the 
256 ; 

299 POKE &H3EQ4, INT(RC/256) pamper or times equal to we peat 

309 POKE &H3E@5,RC-INT(RC/256) * count. e repeat count in 1S BeCTC- 
256 mented by the LEAY -1,Y each time a 

319 POKE &H3EP6, INT(DC/256) complete set of table values has been 

32? ose. SHSEDT, DO“INT(DC/25°)* Tsent out. When this value has been 

339 A=USR@(P) decremented down to zero, the BNE 
GOTO 219 DAC005 is not done, and the program 








returns to BASIC by the RTS. 






Figure 10: 
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Typical Values 


“Backwards 
0,22,0,23,0,26. .. 












en aa 
About 100 
Values 











Values Here Are 


64 a 0,0,0,0 64 


—  Typlcal Values 
0,63,0,63,0,63. .. 
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How to Use Sound 

You can assemble Sound yourself, or 
simply use the BASIC version shown in 
Listing 2. The BASIC version will ask 
you for the Table Start value, Table End 
value, Repeat Count, and Delay. From 
here on in you’re on your own as to what 
you specify for these parameters, but 
here are some suggestions: 


To hear how your computer’s mem- 
ory data sounds, specify a start of zero 
and an end of &HFFFF with a repeat 
count of 1. You should vary the delay 
to get higher or lower frequencies as 
well. 

Try the sine wave table at &£HA85C 
through &HA87F to hear the sine wave 
used in the cassette output. (However, 
before you do, change Line 125 to read 
125 DATA &H12,8&H12,&8HB7,&HFF to 
change the LSLA instructions to “no 
operations.” The sine wave table data is 
already aligned to the left, ready to be 
sent out to the DAC.) Specifying differ- 
ent delay counts will create higher and 
lower frequencies and specifying repeat 
counts of other than ‘1’ will sound the 
sine wave for longer periods of time. 

Try short sections of code repeated 
many times to create “real-world”’ 
noises like car crashes, phaser blasts, 


and the like. 
Constructing Your Own Sound Tables 


Just as the sine wave table provides 
a sine wave sound output, you can 
construct your own tables of sounds. 
There’s plenty of room to do this in the 
area beyond the end of the program at 
&H3E2B through &H3FFF. POKE the 
values by DATA statements and READ 
loops just as in moving the machine 
language code. Some suggestions with 
parameters are shown in Figure 10. 

By using many tables of sounds, you 
can create an entire set of sounds to use 
for synthesized music, games and other 
functions. Remember that the Sound 
table location can be changed at will by 
POKEing the proper addresses into the 
$3E00 parameter block. The BASIC 
program shown above is really only a 
guide to how to interface to Sound — 
it should be easy for you to incorporate 
Sound into your own BASIC code. 


Values Here Are 60,60,60 


— 













Typical Values 


eo _013810,37,0,36. . 














FORTH 


CLEARLY SAID, CLEANLY DONE 


Most of the Color Computers around seem to have 
Extended Color Basic and most of the programs that 
appear seem to assume this. But why? It’s pretty 
much because of the graphics capabilities - the 
PMODEs, LINE, CIRCLE, etc. This month, we start an 
orderly implementation of no less than eleven 
display modes (ECB allows only five), together with 
Cartesian capabilities (like LINE, CIRCLE and simple 


user extensions to SQUARE, TRIANGLE). Then we'll 
extend things to Turtle Graphics and String 
Graphics. AND we will do this using absolutely 


standard Forth and NO extended Basic. 


Because the Forth is squeaky-clean standard, it 
is, with a few patchings at the lowest level, 
portable to other computers. Furthermore, a 


from-the-ground-up graphics implementation gives us 
a chance to design an applications language, which 
we will call XGAL (eXtended Graphics Applications 
Language), with a _ sensible, rememberable, syntax. 
Look at the parameters for ECB’s CIRCLE statement. 
They are a good example of what to avoid. Microsoft 
have simply tried to do too much with a_ “single 


statement. In the language we are about to design, 
we want to say things in a _ straight-forward way, 
like: 


FINE COLOUR GRAPHICS 
MEDIUM SEMI GRAPHICS 
RED INK 

GREEN PAPER 

NEW DISPLAY, etc. 


The mechanics of implementation of the graphics 
modes are dealt with in Section IV of the Color 
Basic manual. All the essential information is 
there, but it is easy to be put off. by the 
complexity of all the pokes to the VDG, control 
register and SAM. To make things worse, the mapping 
of Cartesian coordinates onto the graphics screen is 
messy for displays other than those in the 
highest-resolution two-colour mode. It is tempting 
to be satisfied with an imcomplete graphics package, 
but let's stick to our guns and make sure that we 
include all the best modes, including three best 
semi-graphics modes. Two rather dubious modes have 
been left out, but I don't think that we'll miss 
"em. 

There are no less than ten important parameters 
for each of the eleven modes that we will consider. 
These are tabulated in GRAPHICSARRAY (see Listing). 
So far so good, but we have to find some way of 
allocating the correct set for the mode that we want 
to use and some way of relating this set to the 
appropriate set of colour bytes and mask bytes in 
the COLOURSETS and MASKSETS arrays. How? 

The clue is in the syntax. The adjectives COARSE 

FINEST are simply numbers which are placed on 
the stack for use as an index into GRAPHICSARRAY 
(look at their definitions). RESOLUTION, COLOUR and 
SEMI check and modify this number ready for 
GRAPHICS. GRAPHICS is a really smart word (one that 
looks like a noun and acts like a verb!). It makes 
sure that the number on the stack is not too large 


by John Redmond 


(why?), then multiplies it by the array width (to 
get an offset) and adds this result to the array 
base address. On the top of the stack we now have 
the address of the start of the correct set of 
graphics parameters. 

The first byte of the set is an offset that 
COLOURSETS and MASKSETS need to know about. OFFSET 
therefore pokes this byte into the reserved bytes 
(initialized as 0 during compilation) at the start 
of each of these arrays. The rest of the set is 
then copied into the current attributes array, 
DESCRIPTION, where it can be accessed by the named 
pointer words. Finally, a named variable, P/BYTE, 
is initialized. 

Everything is now ready for the two words that 
give visible results - DISPLAY and PLOT. PLOT will 
have to wait until next month, but let's look at 
DISPLAY. A display can be NEW or OLD and/or NORMAL 
or ALTERNATE. Look at the functions of these 
adjectives (verbs?) and note how we have permitted 
an ALTERNATE display ONLY for the true graphics 
modes and not for the SEMI graphics. 

DISPLAY uses values in DESCRIPTION to determine 
the high-memory pokes carried out by the word 
REGISTERS (not a noun, but a verb!). This word, in 
turn, is used by !VDG and VIDEOSTART. I recommend 
that you set yourself the task of working out how 
REGISTERS works. It is a good example of Forth's 
low-level power, but you will need a hint or two: © 


O< returns a true flag (i.e., 1) if a number is 
negative. But when is it negative? When the 
highest bit is 1, of course. Now, if the highest 
bit IS 1, we have to add 1 to an even address to 
determine the correct poke location. NOW (wait for 
it!) the one we add is, in fact, the very logical 
flag that 0< produced. If the flag had been false, 
the flag value would have been 0 which, when added 
to an even address, gives the same even address. 
This sort of logic arithmetic is discussed in 
Brodie’s 'Thinking Forth’. Finally, 2k is a very 
efficient way of doing a left shift to get the next 
binary bit into the top position for checking, if 
necessary, with 0<. End of lesson. 


The background colour for a normal screen clear is 
held in DESCRIPTION, in a named location called 
(PAPER). The foreground colour is held in (INK). 
Either of these can be altered at any time by PAPER 
or INK, respectively, prefixed by a colour word. 
The colours are defined using a special defining 
word, HUE, which uses COLOURED to access the correct 
element of COLOURSETS using both the ofset passed by 
HUE and the byte value poked in by GRAPHICS (see 
above). (Defining words are one of the advanced 
topics dealt with in Brodie’s ‘Starting Forth’. 
They are dazzlingly elegant and powerful and will be 
discussed in detail in a later article.) 


It is unlikely that all this will be 
the first reading. Look through the listing 
methodically, looking at the highest-level (i.e., 
last) words first. You may, of course, not be even 


grasped at 
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Slightly interested in how it all happens. That's will get just that. 


OK. All the work has been done and all you need to Do you still think that postfix notation looks 
do is load these definitions from tape or disk and funny? Next month, drawing lines and circles in all 
use them. If you say, from the keyboard or within a graphics modes, using sensible commands like: 


program, MEDIUM COLOUR GRAPHICS NEW DISPLAY, you 


: \ 13 WORD DROP ; \ THE ARRAY 1S ACCESSED BY WIDTH C@ 3 > 
\ XGAL - EXTENDED GRAPHICS \ SPECIAL (NAMED) POINTERS. IF OF ELSE 7 THEN P/BYTE ! ; 
\ APPLICATIONS LANGUAGE, 
\ VERSION 1.05, CREATE DESCRIPTION \ SPECIAL WORDS TO POKE THE 
\ €C> JOHN REDMOND, 1986. ARRAYWIDTH 1- ALLOT \ ODD OR EVEN ADDRESSES. 
\ PART 1. DESCRIPTION 3 + CONSTANT WIDTH 
DESCRIPTION 4 + CONSTANT HEIGHT : REGISTERS ( BYTE, ADDR, #REGS) 
\ CODE WRITTEN SPECIFICALLY DESCRIPTION 5 + CONSTANT /SCREEN ex NEGATE OVER + SWAP 
\ FOR TANDY COLOR COMPUTER DESCRIPTION 7 + CONSTANT B/LINE DO I OVER O<¢ + 
\ CALL REVISIONS). DESCRIPTION 8 + CONSTANT (PAPER) QO SWAP C! 2k 
\ EXTENDED BASIC NOT REQUIRED. -2 +LOOP DROP ; 


\ COLOUR DEFINITIONS 
{CONTROL ¢ MASK) 


HEX : COLOURED ¢ #) FF22 C! ; 
\ ATTRIBUTE ARRAYS, CONTAINING: O MAX 7 MIN 
\ OFFSET INTO COL/MASK ARRAYS COLOURSETS COUNT + + C@ ; : {VDG ¢ BYTE) 
\ TRUE GRAPHICS FLAG : HUE CREATE C, DOES> 8 << FFC4 3 REGISTERS ; 
\ VDGBYTE, CONTROLBYTE C@ COLOURED ; 
\ PIXEL WIDTH & HEIGHT MARKERS 0 HUE GREEN : CLEARSCREEN VBASE /SCREEN @ 
\ SCREEN SIZE IN BYTES 1 HUE YELLOW (PAPER) C@ FILL ; 
\ NO OF BYTES PER ROW 2 HUE BLUE 
\ INITIAL B/GROUND COLOUR 3 HUE RED : VIDEOSTART ( VBASE) 
4 HUE BUFF FFD2 7 REGISTERS ; 
CREATE GRAPHICSARRAY 5 HUE CYAN 
\ 2-COLOUR MODES 6 HUE MAGENTA \ COLOUR SET WORDS. 
001 , 2090 , 403 , 400 , 1000 , 7 HUE ORANGE 
001 , 60B0 , 402 , 600 , 1000 , 0 HUE PLAIN : NORMAL ; 
001 , AODO , 400 , COO , 1000 , 80 HUE BLACK : ALTERNATE 
001 , COFO , 300, 1800 , 2000 , DESCRIPTION C@ 
\ 4-COLOUR MODES : INK CINK) ! ; (ALTERNATE) ! ; 
801 , 2080 , 403 , 400 , 1000 , : PAPER (PAPER) C! ; 
801 , 40A0 , 303 , 800 , 2000 , 0 CONSTANT OLD 
801 , 80C0 , 302 , COO , 2000 , \ RESOLUTION TYPES 1 CONSTANT NEW 
801 , COEO , 300 , 1800 , 2000 , \ AND ASSOCIATED WORDS : DISPLAY ( T/F) 
\ 8-COLOUR SG MODE ( CONTROLBYTE, VDGBYTE) 
1000 , 4000 , 303 , 800 , 2080 , 0 CONSTANT COARSE IF CLEARSCREEN THEN 
1000 , 8000 , 302 , COO , 2080 , 1 CONSTANT MEDIUM VBASE VIDEOSTART 
1000 , C000 , 300 , 1800 , 2080 , 2 CONSTANT FINE DESCRIPTION 1+ DUP 
3 CONSTANT FINEST C@ !VDG 
HERE GRAPHICSARRAY - 0B / 1+ C@ (ALTERNATE) © 
CONSTANT ARRAYWIDTH : RESOLUTION 0 MAX 3 MIN IF 8 OR THEN 
QO (ALTERNATE) ! {CONTROL ; 
CREATE COLOURSETS 0 C, RED INK ; 
FFFF , FFFF , FFFF , FFFF , : COLOUR RESOLUTION 4 + ; \ EXAMPLES OF USE: 
0055 , AAFF , 0055 , AAFF , : SEMI 0 (ALTERNATE) ! 
8FOF , AFBF , CFDF , EFFF , 0 MAX 2 MIN 8 + \ GREEN INK RED PAPER 
YELLOW INK ; 
CREATE MASKSETS 0 C, \ MEDIUM SEMI GRAPHICS 
8040 , 2010 , 804 , 201 , : OFFSETS C@ DUP \ NEW DISPLAY 
Coco , 3030 , COC , 303 , COLOURSETS C! 
FAFA , FAFA , FOFS , FOFS , MASKSETS C! ; \ FINEST COLOUR GRAPHICS 
\ ALTERNATE NEW DISPLAY 
VARIABLE P/BYTE - GRAPHICS ¢ #) 
VARIABLE (INK) OA MIN \ COARSE RESOLUTION GRAPHICS 
VARIABLE (ALTERNATE) ARRAYWIDTH * GRAPHICSARRAY + \ NORMAL OLD DISPLAY 
6800 CONSTANT VBASE DUP OFFSETS 
1+ DESCRIPTION \ 6800 VIDEOSTART 
\ CURRENT GRAPHICS ATTRIBUTES. ARRAYWIDTH 1- CKOVE 


LETS SEE NOW... AOW 
BOUT SOME COMPUTER STock 
70 ROU OVT My CoeTFatjo? 
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FORTH 


FORTH FORUM 
by John Poxon 


Before we begin this month's’) Forth 
Forum, I have about 60 c30 audio mastering 


tapes for sale, at $1.20 each, plus 
postage. All are relatively new, fault 
free and bulk erased. Most have been 
recorded on once only. 

Last month's article introduced 
Reverse Polish Notation as the modus 


operandi of FORTH arithmetical operations. 
The concept of placing the operator (+,-,* 
and /) after the numbers to be operated on 
is fundamental to FORTH and Reverse Polish 
Notation (R.P.N.). 

R.P.N. is not a creation of or for 
FORTH, but originated in considerations of 
how arithmetical operations could be more 
logically and efficiently performed. 

Fundamental to our considerations of 
FORTH arithmetical operations is’ the 
storage of numbers during these processes. 
To understand R.P.N. better we need to 
understand the _ stack, which may be 


regarded as the most important number 
reservoir. 
To begin our analysis of the _ stack, 


imagine that you have 
following line. 


typed in the 


123 4 <ENTER> 


The numbers have been entered into 
memory ina last in first out form, which 
may be regarded as a column of numbers (or 
a stack), thus: 


Top 


mW 


Bottom 


You can prove the stack contents at 
anytime by inserting the command .S in 
your calculations at any appropriate 
point. I give you the definition of .S 
without comment, since we haven’t yet 
covered the concepts supporting it. Just 
type in the following line correctly and 
press enter. You can then use .S. 

-S CR 'S SO @ 2- DOI @ -2 +LOOP ; 

The line 
Starting FORTH. 


came from page 50 of 


Numbers at the top of the stack are 
most accessible for arithmetic operations 
and those at the bottom least accessible. 

The stack can have, in principle, any 
depth, but in practice depth is limited. 
The stack can contain sufficient numbers 


for almost any legitimate purpose, so 
don’t worry about overfilling it! This is 
not true of course, if you generate excess 
numbers which pile up on the bottom of the 
Stack until a "stack overflow” error 
occurs. FORTH demands that you provide any 


necessary protection against stack 
overflow. Incidentally, to empty a stack 
full of unwanted data, type some 


meaningless word, e.g. sss <ENTER> and the 
stack will be cleared. 

If you were next to enter an 
operator, it would operate on the top two 
numbers and place the result on the top of 
the stack. For example, typing * <ENTER> 
would result in the product of 4 and 3 
being placed on the top of the stack. The 
stack would then "look” like this: 


12 
2 
1 


You may of course have a need to 
operate on numbers lower down in the stack 
while leaving the upper numbers intact. 
There are ae certain special FORTH words 
which permit manipulation of the stack, 
that is, number positions in the stack may 
be altered to facilitate calculations. 
This means, of course, that the required 
humbers are brought to the top of the 
stack. 

Some useful words are DUP, ROT, SWAP, 
OVER and DROP. These are not all of the 
stack manipulation words, but are most of 
the single length stack operators. We’1ll 
worry about double length operators later 


in this series. The words are easily 
understood. Let me list their functions 
be low: 

DUP DUPlicates the top number on 
the stack so that two copies 
exist at the top of the 
stack. For example, if we 
commenced with a blank stack 
and typed 2 DUP <ENTER> the 
stack would contain two 2s. 

ROT ROTates the third number 
down in the stack to the 
top, e.g. 
3 1 
2 becomes 3 
1 2 
SWAP SWAPs the top two numbers. 
e.g. 
3 2 
2 becomes 3 
1 1 
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OVER Copies the second stack 
number and puts the copy on 
top of the stack e.g. 


3 2 
2 becomes 3 
1 2 
1 
DROP DROPs the top number on the 
stack, e.g. 
2 3 
3 becomes 2 
2 1 
1 


With these thoughts in mind we can 
try one or two simple calculations. 
Remember throughout that this is integer 
arithmetic (no decimal parts to numbers). 


Let’s try 3%(10)°. The line 


3 10 DUP * 


will doa the job nicely. Stack cantents 
Look like this as the calculation 
progresses. I have written the operation 
Preceding the stack candition above the 
gap between the stack listings 


32 10 DUP *K *K 
1e 190 100 3200 300 
3 10 3 on 
3 screen 


We would do well to remember that as 
simple single length numbers (16 bit) the 
stack values or intermediate results of 
calculations cannat exceed the range 
+32767 to -32768. I sense you recoiling in 
horror at such a profound limitation. Calm 
down, it’s not as bad as it first appears. 

FORTH provides ways of getting around 
these difficulties. Let’s begin to talk 
about them by discussing the word */ 
(pronounced star-slash). This very useful 
word permits a single length calculation 
to have a double length ¢32 bit) 
intermediary value. It first multiplies 
and then divides. Like certain other 
division operators in FORTH the /7 part of 
*/ leaves only the quotient. Care should 
therefore be taken when deciding the 
process of a calculation to avoid large 
errors due to dropped remainders. 

Let's try an example to illustrate 
what we’ve learned so far. Calculate 


1a? 412°)°s6 


The value of cia? +12°)? is more 
than 16 bits can handle, so the */ will 
come in useful. Entering the numbers in 
reverse order, the stack looks like this: 


To make the calculation, doa DUP * SWAP DUP 


* + DUP #¥/ The stack contents will 
progressively look as follows. 


DUP * SWAP DUP * + 
14 14 196 12 12 144 
12 14 12 136 12 196 
36 12 36 36 196 36 
36 36 
DUP ROT ¥/ 
340 3240 26 3211 3211 
36 340 340 on screen 


36 340 


Another example. Find the effective 
resistance of three resistors ( 10, 20 and 
30 ohms) in parallel. The formula for this 
is 


R, = (R1—1+R2-1+R3-1)-1 


We might expect the value of this 


expression, using these numbers to be a 
about half the lowest value of resistor 
(10 ohms). In fact the correct answer is 


9.45 ohms. lets see how FORTH does’ using 
integer arithmetic. 

Since it doesn’t matter which order 
we process the resistance values we can 
enter them in any order, thus: 10 20 30 
<ENTER>. But how to process them? If we 
simply divide each value into 1 to achieve 
a reciprocal we will be confounded by the 
loss of the quotient refered to earlier. 

A solution is to scale each value and 
ultimately descale the answer. One has’ to 
be very careful doing this in problems 


involving multiplication or 
exponentiation. 

If I divide a resistance value into 
1000, the result will be 1000 times 


greater than otherwise. I’m not trying to 
insult your intelligence here; Graham 
would, I know, prefer these tutes written 
on the K.I.S.S. principle. 


From here on there are a couple of 
ways to tackle the problem. One involves 
entering the scaling factor of 1000 as 
required: the other involves setting a 
constant equal to 1000 and calling up’ the 
constant when needed. Since we will tackle 


constants later in this’ series, I will 
restrict myself to the first option. 
We have already entered the 


resistance values. The operations on the 
stack proceed as follows: 1000 SWAP / 1000 
ROT / ROT 1000 SWAP / + + 1000 SWAP / 

The last period is of course the sentence 
ending. The stacks go as follows. 


/ ROT 1000 OWAP / + + 


20 50 30 1000 30 33 
1000 100 50 30 1000 50 

100 30 100 50 50 100 

30 100 100 

1000 SWAP / 
183 -1000 183 5 Prints on 
183 1000 ecreen 
5 


continued on Page 57 
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WHAT’S NEW 


a 


of 
use with either the 
Colour Computer or the T1000. 


The Probe is our latest piece 
equipment for 


Attached to a CoCo, The Probe uses 
either the right hand joystick port 
or CoCoMax to provide temperature 
monitoring. 

On a T1000, The Probe connects to 
the right hand joystick port. 


The Probe consists of a cable and 
a protected transducer, which is 
inserted into the substance being 
monitored. 

The Probe is not able to cope with 
highly acidic solutions or 
temperatures in excess of 100 
degrees C. 

Temperature readings however, can 
be taken between -40 and 100 
degrees Celcius, with an accuracy 


of +/- 2 degrees using the T1000 or 
CoCoMax, +/- 8 degrees read 
directly through the CoCo joystick 
port, or +/- 2 degrees C_ through 


0 SECS 
SECS 
SECS 
SECS 
SECS 
SECS 
SECS 
SECS 
SECS 
SECS 

SECS 
SECS 
SECS 
SECS 
SECS 
SECS 
SECS 


TEMP= 34 
TEMP= 
TEMP= 
TEMP= 
TEMP= 
TEMP= 
TEMP= 
TEMP= 
TEMP= 
TEMP= 

TEMP= 
TEMP= 
TEMP= 
TEMP= 
TEMP= 
TEMP= 
TEMP= 





continued from Page 


The answer, 5 ohms, is 


the correct answer. This 










normal production tolerance of 


the CoCo joystick port with an 
optional amplifier (price to _ be 
announced). 

The maximum specified thermal 


response time of The Probe in still 
air is 3 minutes (time taken to 
reach final temp value). However 
preliminary testing shows that this 
varies from 50 to 180 seconds. 

The Probe is supplied with three 
programs on tape or disk (please 
specify) for CoCo or with a disk 
containing three programs for the 


T1000. 

These programs are meant as 
thought starters for your own 
projects, but never the less 
provide some interesting 
information. 

"BARTEMP” * is a program which 
provides you with a-— simple 
thermometer on. screen. As the 
temperature of the substance being 
checked changes, so the reading on 





methods; 
served by 


you will see a wide variety of commands 
about 92 % of which I cannot, for sake of space and 
is within the time, discuss here. 
commercial 


resistors. If one required a more accurate One point of re-assurance that I find 
answer, using a scale factor of 10 000 comforting is that its 0.K. to experiment 
would be O.K.. on the computer. A learning experience, 
Did you see where I did the successful or not costs no more than a 
descaling? It was of course in the final little time and a few cents of power. Your 
factor of 1000. investigations of FORTH are therefore 
There are many ways of doing this nothing more than a low-cost investment in 
calculation better than this; I hope the your understanding of another aspect of 
FORTH experts out there will not shudder programming. 
too much. My intention was merely to 
provide a sample of some stack Finally, remember —- if you would like 
manipulation. Later in the series I will to talk about FORTH, feel free to call me 
investigate some of those more efficient on (07) 208 7820. 
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in the meantime you would be best 
reading Starting FORTH. There 


screen changes. 
" LOGGER" * samples temperature 
over a specified period and 


provides a print out of the result. 
The information below shows the 
result of a test we made, when we 
immersed The Probe ina glass of 
ice water, and after 220 seconds, 
took it out again. 


The third of these programs, 
"GRAPH", # samples temperature over 
a set number of periods, for 
whatever length of time you 
require, and draws a graph of the 
results. 


* 16K CoCo’s and T1000 128K+ 


# 16K ECB CoCo'’s and T1000 
128K+ 

There are a number of uses for 
this interesting piece of 
equipment. 

It can be used to demonstrate 
heating and cooling rates to 
students; it can be used to monitor 
temperatures in controlled 
environments, eg hot houses, 
chicken sheds, fire alarms; and it 


can be used by experimenters. 
Owners of The CoCoConnection will 
find The Probe of special interest, 


for it adds to your arsenal of 
control equipment. 

The price is $49.95 for the 
versions without an amplifier. The 


version with amp 
$59.95. 


is likely to be 


Grahan. 
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ACCESSIBLE APPLICATIONS 


Getting Started 
with BASICO9 


By Richard A. White 





column for over six months. I know from letters that 

many of you have been following the articles and are 
using spreadsheets now. However, broad as the topic may 
be, there are other interests to be served. 

Over the past few months, I have been learning and 
programming in BASICO9. Dale Puckett is right on target in 
praising BASICO9. I hope the tutorials I provide in the coming 
months will bring you to a similar conclusion. 

Under OS-9; there is a wealth of programming languages. 
assembly ianguage is the same as under Disk BASIC, except 
for the program/ machine interface. Brian Lantz has 
recently covered Assembly language under OS-9 in THE 
RAINBOW. A series on PASCAL by Dan Eastham graced the 
pages of “RainbowTech” some time ago. While the very 
good DEFT Compiler was highlighted, Radio Shack’s 
Microware PASCAL Compiler is likewise a powerful 
compiler under OS-9. Another programming language 
available under OS-9 from Radio Shack is Microware’s C 
Compiler, possibly one of the very best C compilers for a 
microcomputer. 

With these options, why program in BASIC09? BASICO09 is 
designed for structured programming, but so are PASCAL 
and C. C 1s very powerful and terse, although it is not 
particularly easy to learn. If you have done some assembly 
language programming and want higher programming 
productivity while staying close to the machine, C is 
probably for you. I know one programmer who held out 
for years before trying C and then wondered why he had 
been so bull-headed for so long. 

Then there are the rest of us, many who have been 
programming under BASIC and want to do more under OS- 
9. BASICO9 provides a nice transition language since the key 
words you have learned under BASIC have the same 
meanings under BASICO9. Some of the pains in BASIC, like 
line numbers, are gone (you can still use them, but it’s like 
shooting oneself in the foot). The automatic handling of 
variables you are used to is gone, but it is replaced by 
powerful structuring options that provide economy, clarity 
and speed. 

BASICO9 provides a rich selection of control structures, 


Y= have been reading about spreadsheets in this 


including LOOP ... ENDLOOP, REPEAT ... UNTIL, 
WHILE...DO...ENDWHILE and EXITIF... THEN 

.. ENDEXIT, in additionto FOR...TO...NEXT and 
IF... THEN... ENDIF. Both the IF and ENDIF 


constructions permit the use of ELSE. For those who have 
no previous experience with some of these structures, take 
my word that they are indeed nice to have. 

If you are a fan of disk files, you will find BASIC09 different 


from the Microsoft BASIC in the CoCo, perhaps a tad more 
complex, but also more powerful. With one statement such 
as PUT #PATH, myfile, you can save a whole 10,000-byte 
data structure to disk as a machine code dump, which is 
fast and easy. Load it back with GET #PATH, myfile, which 
is as equally easy and fast. 

BASICO9 is designed to encourage writing program 
modules. Subroutines are named (no more wondering what 
GOSUB 33 means), stored separately from other modules and 
run by name. This can save memory since only those 
procedures being used need be in memory. Such is not the 
case with PASCAL, where procedures must be defined and 
be in memory before they can be used. Variable names are 
local to modules, that is, you can use the same variable name 
in a number of modules to mean similar things. For 
example, “count” in the main program does not change 
when “count” in a subroutine is incremented, unless you 
specifically write the program so that happens. Long 
variable names are significant so that “count!” 1s different 
from “count2.” 

Perhaps I have left the status of PASCAL as a fuzzy choice. 
In fact, the choice between PASCAL and BASICO9 under OS- 
9 is not easy. One reason to choose PASCAL is that its 
programs can be compiled to machine language. Those who 
intend to take high school or college programming courses 
should opt for PASCAL simply because most institutions 
encourage beginning students to take PASCAL. Further 
advanced placement tests are standardized on PASCAL. 

For the rest of us, the transition from BASIC to BASICO09 
is easier than the transition to PASCAL. And, “byteheads” 
will probably take the next step to PASCAL as well. 

To get started, buy the BASICO9 Compiler ($99.95) from 
your Radio Shack store. Also, buy The Official BASICO9 
Tour Guide by Dale Puckett, which is now available from 
Radio Shack. Then, follow the rest of this article step by 
step. 

When BASIC09 first appeared, the cry went up, “It won't 
load!” It was a directory problem. Under OS-9, if you just 
type the procedure name, that procedure must be in memory 
or in your CMDS directory to load and execute. The 
BASICO9 disk comes without a CMDS directory. Therefore, 
the very first order of business is to copy BASICO9 from the 
distribution disk to the CMDS directory on a system disk 
or to the CMDS directory on another disk if you are 
running two or more drives. Unlike C, BASICO9 does not 
require more than one disk drive. 

There are two filenames on the distribution disk, 
BASICO9 and RUNB. BASICO9 includes the interpreter, 
an editor that is nice for a line editor, which as a class, ranges 
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from poor to horrible, and a debugger. RUNB is a special 
interpreter that runs packed BASICO9 modules. RUN Bis half 
the size of BASICO9, and packed BASICO9 modules are a 
quarter to a third smaller than their source code. Packed 
modules run faster, though unpacked ones are fast 
compared to Color BASIC. Downstream, you will need to 
have RUNB in the CMDS directory along with packed 
BASICO9 modules. 

1 am back to a practice I follow under Disk BASIC. I make 
up a single disk for an application that includes the program 
modules and my working files. This way, I stick the disk 
in, boot the application, load any work files and go. This 
works even better under OS-9 where I have a special start- 
up file that automatically boots the application, setting a 
large memory buffer automatically. 

I make an OS-9 system disk that includes OS9boot and 
its various utility procedures in the CMDS directory. Some 
of the procedures that come with OS-9 are never used with 
BASICO9 and should be discarded while making your BASICO09 
system disk. There are a number of ways to approach this 
project, depending on how fancy you want to get. We will 
show an easy way, then refer to some more complex 
approaches that utilize more of OS-9’s power. 


Making a Single Drive BASICO9 Disk 

First, format a disk. Type FORMAT 7D@ at the OS-9 
prompt. OS-9 loads the FORMAT modules and asks if you 
are ready. Now remove your system disk from Drive 0 and 
insert a fresh disk. Press ‘Y’ and that disk will be formatted. 

The second step is to back up a system disk onto the newly 
formatted one. Exact examples of how to do this are shown 
on pages 63 and 64 of your red OS-9 Commands Manual 
for either two-drive or single-drive systems, so I won’t 
duplicate them here. At this point, put your original system 
disk safely away and work with the backup. Type FREE and 
you will see that of 630 sectors: 84 are free and the largest 
block is 81 sectors (when using Version 01.01 of OS-9). This 
is on a 35-track disk. 

Though 84 sectors is not much to work with (particularly 
when we have yet to copy BASICO9 and RUNB onto the 
disk), there is quite a bit on the disk you will never need 
with BASICO9, so housecleaning is in order. We can start with 
the CMDS directory, which starts out like this. 


Directory of /D@#/CMDS 11:36:49 


asm attr VY backup 
binex build ~ cmp _- 
cobbler — copy ” date 
dcheck / debug del. | 
deldir” dir” display” 
dsave / dump echo.“ 
edit — exbin format’ 
free / ident.“ Link. 
list load.” login 
makdir.- mdir.< , merge “ 
mfree -’ os9gen.. printerr 
procs pwd - pxd- 
rename. save setime- 
shell sleep tee 
tmode tsmon unlink 
verify xmode ” 


ASM is the assembler, which you won't need, so take it 


out. BINEX and EXBIN are worthless here, too, so pitch 
them. CMP is useful to see if files are identical, but also 
not worth keeping here. DCHECK and DEBUG can both 
go, and you can dump DUMP. LOGIN and TSMON are 
for use with an attached terminal intended for the multi- 
user mode, so take them both out; TEE can go, too. 

Here is the easy way to clean house. Know that when 
deleting files from your data directory, you only need to 
specify the filename and not the whole pathlist. All the files 
listed here are in the CMDS directory. Therefore, make the 
CMDS directory the data directory by typing CHD ”D0/ 
CMDS. Now just a few typed lines will clean things up. 


OS3S>DEL ASM BINEX CMP ODCHECK DEBUG DUMP 
OSI>DEL LOGIN TEE TSMON 
OSS>CHD “D@ 


After some OS-9 commands, a number of filenames may 
be entered up to the input buffer limit. The advantage of 
this is both reduced typing and speed since DEL is loaded 
only once to work on a number of entries. 

Next we turn our attention to the DEFS files. These are 
only used with the assembler we just deleted, so we do the 
same with the DEFS files and their directory. 


OSS>CHD “D@/’DEFS 
OSS>DEL OSS9Defs RBFDefs SCFDefs SysTyupe defsfile 
OSS>DELDIR DEFS 


At this point, OS-9 asks a cogent question to which I 
answer ‘Y’ and the directory goes away as well. Don’t forget 
to do a CHD /D0 to return your data directory to DO. 

Now wecancopy BASIC09 and RUNBto our commands 
directory. I suggest you type LOAD COPY to save a bit of time. 
Single drive copy works like single drive backup in terms 
of disk swapping and ready messages. The command lines 
should look like this: 


OSS>COPY “DO’basicO9 “DO’“CMNDS’basicO3 -s #30K 
OS9>COPY 7D0/runb “7DO0/“CMDS/’runb —-s #30K 


The “-s” tells OS-9 you want a single drive copy and “#30K” 

allocates 30K bytes of memory buffer for the job. The larger 

the memory buffer, the fewer times you need to swap disks. 
Now our CMDS directory looks like this: 


Directory of /dl/cmds 21:39:33 
BASIC@9 attr backup 
runb build cobbler 
copy date del 
deldir dir display 
dsave echo edit 
format free ident 
link list load 
makdir madir merge 
mfree os9gen printerr 
procs pwd pxd 
rename save setime 
shell sleep tee 
tmode unlink verify 
xmode 


And we still have some room on the disk, as FREE will 
show. 
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VERY BASICALLY OS9 


OK. This month we ara going to get 
back to the basics of OS-9 for 
those who are new to 0S-9 and try 
to answer the questions most 
commonly asked. 


In this article I am going to 
assume that you have just been to 
TANDY and bought a copy of OS-9 and 
BASICO9 and have just arrived home 
with them. You open the boxes’ look 
at the 3 disks and 4 manuals and 
say to yourself where do we start. 


You may even think that this is 
going to be TOQ HARD to learn so 
why bother. You probably thought 


much the same when you first bought 
your computer home but you managed 
to learn how to use it didn't you? 
If. you answered no you should go 
back and learn the basics of how to 
use it before you start on OS-9. 


Well if you haven't been 
discouraged and have read this far 
that was the end of the hard sell. 
We are now going to get back to the 
point when you have opened the box 


The first thing to do is back up 
the master disk. First place a 
write protect tab over the write 
protect notch. The write protect 
notch is the small square missing 
from the side of the diskette. If 
you cover this with a piece of tape 
or a sticker then nothing can be 
written onto the disk. 


Before you can backup the disk you 
must first get OS-9 up and running. 
If your Disk Basic has the DOS 
command (OS9 on some) all that you 
need to do is type DOS or OS9 when 
you have inserted the System Master 
Diskette into drive 0. 


If your Disk Basic doesn’t have 
either of these fear not, you have 
also been catered for. There should 
be a diskette marked Boot Disk in 
the package with the System Disk. 
If you do a DIR of this disk there 
should be two files on there, the 
one called "x" is the one that we 
want. Insert this in drive 0 and 
type RUN”’*” and press’ the enter 
key. The screen will clear and ask 
you if you wish to check the speed 
of the drives or if you wish to 
boot OS-9. Answer OS-9 and you are 
on your way. 
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The loading and executing of OS-9 
takes a little time. The screen 
should clear and the words OS9 boot 
should appear in the centre of the 
screen. 


The next message that should 
appear will look something like 
this. It will be different for each 
version of OS-9. 


OS-9 Level One 
RS VERSION 01.01.00 
COPYRIGHT 1980 BY MOTOROLLA 
AND MICROWARE SYSTEMS CORP. 
REPRODUCED UNDER LICENSE 
TO TANDY CORP. 
ALL RIGHTS RESERVED 


yy/mm/dd hh: mm: ss 
TIME ? 


The prompt is asking you to enter 
the date and time. When you enter 
this it will start the SYSTEM CLOCK 
and print the date and time at 
various times. It will also set the 
date on any files so that you know 
for instance the last time a file 
was edited or when it was created. 
The CLOCK ts more important than 
you might think because what we are 
about to do .will use the date of 
the system clock. 


The next thing to do is to make 2 
backup copies of the master system 
disk. Why @ you may ask? Its 
because you are going to modify one 
of them and if you make a mistake 
you will need the other disk to 
boot OS-9 again. 


The first step in making a_ backup 
system disk is to format a blank 
disk (that makes sense doesn’t 
it?). I am going to take you step 
by step through the procedure to 
format and backup using single or 
twin disk drives. 


Although OS-9 will work quite well 


On a single drive two drives are 
better and will make these 
procedures easier and faster. 
Anyway, the first step in 


formatting a blank disk in drive 0 
is to type "format /d0"”. Leave the 
distribution master disk in drive 0 
while you are typing this. This is 
the reason that I said to place a 
write protect tab on the disk. 
After pressing enter the following 
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by Jack Fricker 


will appear. 


Format /d0 y/n 


At this point you remove’ the 
distribution disk and insert the 
blank unformatted disk into drive 0 
and press Y for yes. Just to make 
sure you really wish to do this it 


will ask you if you are ready. If 
you again type Y then it is too 
late to back out, that disk is 


about to be erased and formatted. 
The reason that you are asked twice 
is because formatting will erase 
any data on the disk that you may 
not wish erased. 


After a short time you will be 
asked for a volume name. This name 
can be up to 32 characters long. 
This name will be written to the 
disk, but since we will be backing 
up onto this disk you can type 
anything you like in answer to this 
question. Backup will write the 
name of the disk that is being 
copied over the name you type in. 


After you type your 
press enter you will see 
Of HEXADECIMAL numbers on the 
screen. These numbers are the 
sectors being put on the disk. At 
the end of these numbers you will 
see the total number of sectors is 
$276. Repeat this procedure for the 
other disk. 


response & 
a number 


Now that we have a couple of blank 
formatted disks maybe we should put 
something on then. 


If you only have one disk drive 
you must re-insert your master 
system disk into drive 0 & type 
BACKUP /d0. The Computer’ will 
respond with Ready to backup /d0. 
If you type 'y’ you will be asked 
to insert the destination disk in 
drive 0. Then you will be asked if 
disk so & so is the one you want. 





If you have 2 disk drives insert 
the distribution system disk in 
driveO and the new disk in drive 1, 
Type BACKUP & the prompt will read 
"Ready to backup from /d0 to /dl 
y/n". When you type 'y’ you will be 


asked if disk name(the name you 
entered before) is the one you 
want. 
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The reason that you are asked if 
you really wish to backup onto the 


disk is simple. When a backup of 
one disk onto another is done= any 
and all information on the disk 


being copied to is writtem over 
including the name and date of 
creation. This is the reason that I 
said earlier when we created the 
disk not to worry about giving the 
disk a proper name. The creation 
date is the only thing that is not 
copied over from the original disk, 
it is given the current date 
instead. 


OK. Now that you have 2 backups of 
your Master Distribution disk. From 
now on we'll call them your System 
disk and Backup System disk. Put 
your distribution disk away ina 
safe place because we should never 


need to use it again. 


Instead you will use your newly 
created system disk. Put the system 
disk in drive 0 and type CHD /D0O. 
Chd means CHange Data directory and 
/d0 means drive 0 (of course). Next 
type CHX /DO/CMDS. Chx means CHange 
eXecution directory. /cmds is the 
commands directory which is where a 
list of all the commands and where 
on the disk they are stored. 


The chd and chx are commands but 
you will not find them in the 
commands directory because they are 
part of OS-9 and are in memory. 

The /d0O and /d0/cmds are called 
pathlists. Pathlist is a word you 
will have to get used to when using 
OS-9 because I will be using it and 
the Manuals make constant use of 


it. 


Parameter is another word that has 
to be learned. What it means is 
something that has to be passed 
from one thing to another. In this 
case pathlist is a parameter that 
is passed to the calling program 
chx or chd. 


All these are mentioned in the 
manuals so I have mentioned them to 
help you when you read them. They 
contain all the things that you 
need to know so read them very 
carefully and fully. 


If you have any questions about 


the user groups or the _ public 
domain software you may contact me 
c/- the Australian Rainbow’ or 


P.Q.Box 306 Clayfield 4011. 


“COLOR COMPUTER DISK” created on: 85/11/17 
Capacity: 630 sectors (1-sector clusters) 
193 Free sectors, largest block 129 sectors 


One last item to attend to is the start-up file. 


TMODE .1 —UPC 

XMODE “7P BAUD=4 —UPC 
PRINTERR 

SETIME </“TERM 

LOAD BASICS 

EX BASICO9 H12K <“TERM 


TMODE .1 -UPC sets the terminal for upper- and 
lowercase. My experiments indicate this must be in all start- 
up files when lowercase is desired. It can be issued from the 
keyboard as well. Lowercase is used in BASICO9. 

XMODE /P BAUD=4 -UPC sets the printer output to 
2400 Baud. Use ‘2’ for 600 Baud and ‘3’ for 1200 Baud. 
PRINTERR enables OS-9 to get error messages from the 
disk replacing numbers; it’s nice to have. SETIME </ 
TERM gets the date and time entries from the keyboard. 
Without </ TERM, SETIME looks for input from the disk 
and the system locks up. This is an important point that 
some of us have learned through much suffering. A start- 
up file is set up to interact with the disk drive unless 


instructed otherwise. 

We load BA SICO9 (the program) so we can go back and 
forth between OS-9 and BASICO9 (the language) without 
having to load BASICO9 each time. Finally, BASICO9 is 
executed using EX, which saves forming another shell. >/ 
TERM must be included or BASICO09 looks for its input from 
disk. 

At this point you have one disk that automatically boots 
into BASICO9 and has space for some program files. 
However, we have not optimized memory. On booting, OS- 
9 loads a standard set of modules. A few of these won’t be 
used and can be tossed, making room for either larger 
program files in memory or providing space for other 
modules such as DIR, which you might want in memory. 
Elsewhere in this issue, Donald Dollberg discusses opti- 
mizing your OS-9 boot to tailor in-memory modules to just 
those you want. His article, “Creating OS-9 System Disks,” 
starts on Page 224. 

When you have finished customizing your BASIC09 
working disk, keep it as a master disk and make backups 
for working disks. When you start a new programming 
project, it’s a good idea to start- with a new working disk, 
as well. 

Next month, we will pop our completely customized 
BASICO9 disk in the drive and start programming. fAN 
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FASTER FPRINT ING 


SERIAL ‘TO FARALLEL INTERFACE 
9600 


BAUD POWER FROM FRINTER 
$&6&2 FOST FAID 


RICHARD ROGERS 

48 KNOCKLOFTY TERRACE 
WEST HOBART 7000 
PHONE (002) S41155 


BUILD YOUR OWN? Uses NE555, 741902, 741593 
T4LS132, 7ALS164 PCE AND INFO #10 
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NEW! 


Score higher in all your games with — 


DRAGON JOYSTICKS 


Have many features of expensive joysticks — 
* Sturdy construction 
* Potentiometers for maximum precision 
NOT the imprecise leaf switches used in cheaper models 
High quality anti-RFI cable 
Positive Fire Button control 


NOTE: these joysticks do NOT heve self centreing or fine tuning controls. 





EASE Services, 
19 Acacia Avenue, 
Blackburn, 3130 


MONEY BACK IF NOT SATISFIED 


ORDERS with CHEQUE 
or MONEY ORDER TO: 


EASE. 
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JUNK FILTER 


by Ross McKay 


(Many people appreciated seeing Rosko’s program in 
the magazine last month. These simple, easy to 
follow programs are a great starting point for new 


OS-9’ers, and we'd encourage anyone who is not an 
expert to forward for publication their ‘little’ 
OS-9 progs. 


OS-9 is proving to be a very enjoyable environment 
to work in. Many of you are a bit daunted at the 
prospect of starting something new - especially when 
it looks a bit complex. 


But if you give it a go, you'll like it - so get 


PROCEDURE filt 
(*¥ FILT 1.0 
(¥ by --- Rosko ! --- 


(FX usage: <run> Ffilt("filename”" ) 
(¥ will remove non-cr’s outside 
(¥ range chr$(32)-chrd(i27) 

(¥ requires OS-% Rename 


PARAM filel: STRING 

DIM infile,outfile: INTEGER 
DIM char,1#:STRING( 13 
14°=CHRS(10) 


JPEN #infile,filel:READ 
CREATE #outfile, "temp": WRITE 
WHILE NOT(EQF (#infile)) DO 
GET #infile,char 


IF char >CHR$(31) AND char<CHRS (128) 


PUT #outfile,char 

PUT #1,char 

ENDIF 

IF char=CHR$(13) THEN 
PUT #1, 1f 

ENDIF 

ENDWHILE 

CLOSE #infile 

CLOSE #outfile 

DELETE filel 

SHELL "rename temp "+tfilel 


Hint... 


Formatting Diskettes 


Some CoCo users have reported problems with 
formatting more than one disk in succession. The 
CoCo uses a technique called “write precompensa- 
tion” on the more critical inner tracks of a disk; for 
some reason, Disk BASIC doesn’t turn off the feature 
after a DSKINI is completed. If you need to format 
more than one disk at a time, enter POKE 113,@ and 
press the Reset button after each disk. 
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OR char=CHRS(13) 
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into it! G.) 


I've already had some calls from some people 
following the program last month - thanks, it was 
nice to hear from you! 

Here is a little itility written in Basic 09 which 
will filter out ‘junk’ characters from text files. 

These include line feeds and any graphics’ and 
control characters. 

I wrote this to filter my BBS dumps, which ran to 
many pages with the extra line feeds. 


THEN 


Slow Scrolling 
through Orange 


Here’s a powerful little POKE that slows your 
scrolling by creating a horizontal LIST. Type POKE 
353,69 and you'll see what we mean. Add a colon (:) 
and SCREEN®,1 and you'll be slow-scrolling across an 
Orange screen. To return to the green screen at full tilt, 
Just type POKE 359,126. 
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For All Your CoCo Needs 
AUTO ANSWER $399.00 


INFO CENTRE 


THE FIRST BULLETIN BOARD SYSTEM 
fo) am ic taleh’arcmerolanlelencciss) 
(02) 344 9511 — 300 BPS (24 Hours) 
(02) 344 9600 — 1200/75 BPS 
(After Hours Only) 


SPECIAL! 


Avtek Mini Modem + Cable + CoCo 
Tex Program — the total Viatel System — 
$279.00 


We also have the largest range of Software for 
OS-9 and Flex operating systems. 


PARIS RADIO ELECTRONICS 


161 Bunnerong Rd., Kingsford, NS.W. 2032. 
(O2) 344 9111 


HOME COMPUTER 


\V gurstanpine 
. FEATURES 
ANGLED FRAME PROVIDES RIGIDITY ANDO _ 


STABILITY 

KNOCKDOWN CONSTRUCTION FOR EASE OF 
TRANSPORT 

SPLIT-LEVEL TOPS EACH 900mmx380mm 
BOTH AT ERGONOMIC HEIGHT. 

OURABLE EPOXY COATED FRAME 

ONLY $125.00 

DELIVERY WITHIN BRISBANE METROPOLITAN 
AREA PLUS $7.00 


DELIVERY ELSEWHERE IN QUEENSLAND : 
PLUS $14, IN AUST. PLUS $20. s&m contract furniture pty Itd 


MONEY BACK P 893 STANLEY ST.“CNR 
iF NOT SATISFIED al HAMPTON ST. WOOLLOONGABBA 
TRADE ENQUIRIES WELCOMED QUEENSLAND 4102. PH: 391 8188 










The Best of CoCoOz: 

















#1... EDUCATION programs. Fourteen programs for the teacher or parent. Per Tape 
#2... Part 1... 16K GAMES. (Mainly ECB). Sixteen programs to keep you on your toes! | Per Disk 

Part 2... 32K GAMES. Adventures, simulations and arcade games for everyone! | Two Disks or more each 
#3... UTILITIES. Programs to make your use of the computer easier. #3 on Disk 






Spoolers, Reverse Video, Disk utilities and more. 
BUSINESS programs. Invocing, Accounts, Creditors and more. 












#4... Any two tapes 









What’s on: 














Best of CoCoOz #1. Education. 

ROADQUIZ ................. ROB WEBB MARKET ................ ALEPH DELTA 
HANGMAN .............. ALEPH DELTA TOWNQUIZ ................ ROB WEBB 
AUSTGEOG ................ P. THOMAS ALFABETA ................. RON WEBB 
SPELL .................... IAN LOBLEY TANK ADDITION ....... DEAN HODGSON 
FRACTUT ............ ROBBIE DALZELL TABLES ............. BARRIE GERRAND 
ICOSA 1.1... ee eee ee eee BOB WALTERS KIDSTUFF ............ JOHANNA VAGG 
TAXMAN .............0- TONY PARFITT FLAGQUIZ ................. ROB WEBB 
Best of CoCoOz #2 part 1. 16K Games. 

TREASURE ........... DAVISON & GANS SHOOTING GALLERY ..... TOM DYKEMA 
MASTERMIND ....... GRAHAM JORDAN GARDEN ............ DAVE BLUHDORN 
ANESTHESIA ............ MIKE MARTYN YAHTZEE ............... KEVIN GOWAN 
OREGONTRAIL ....... DEAN HODGSON BATTLESHIP .......... CHRIS SIMPSON 
ADVENTURE .......... STUART RAYNER ANDROMIDA .......... MAX BETTRIDGE 





Best of CoCoOz #2 part 2. 32K Games. 

LE-PAS ......... cee ees Wrongsoft PYTHON ........ 02. eee eee eee ? 
COCOMIND .......... STEVE COLEMAN POKERMCH ..... GRAHAM & MATTHEWS 
OILSLICK ............... JEREMY GANS SPEEDMATH .......... DEAN HODGSON 
CCMETEOR ............ BOB THOMSON LNDATTCK ........ ALDO DEBERNARDIS 
BATTACK............... JEREMY GANS INVADERS ....... Lees DEAN HODGSON 
PROBDICE ........... BOB DELBOURGO RALLY ............00000. TONY PARFITT 

Lecce e eee ees J&J GANS Lee eee 













Lee eee eee ee eee eee ? COPYDIR ........... THOMAS SZULCHA 
HI... eee eee eee ALEX. HARTMANN LABELLER ................... J.D. RAY 
SPOOL64K ........... WARREN WARNE SCRPRT ................. TOM DYKEMA 






CREATITL ........... BRIANFERGUSON  #£-MONITOR+ ......... 






Best of CoCoOz #4. Business. 
| ALEX. HARTMANN PERSMAN .......... PAUL HUMPHREYS 
(Disk Directory manager) (Personal finance management) 
BANKSTAT ............ BARRY HATTAM © Oh. GRAHAM MORPHETT 
(Statement annal & store) (Sales Invoicing-tape sys) 

INSURE ........... ROY VANDERSTEEN COCOFILE ............ BRIAN DOUGAN 
(Analyse home contents) (Tape data base) 

SPOOL64K ........... WARREN WARNE DPMS .............. PAUL HUMPHREYS 
(Printer spooler req 64K) (Disk Program Management Sys) 

2BC 1... ee eee WARREN WARNE 4OKGREY ............. RAY GAUVREAU 
(Hold 2 sep progs in mem) (40K Basic for grey 64K CoCo) 

DATABASE ......... PAUL HUMPHREYS TAXATION ...... 0... ccc cc eee eee ? 
(THE tape database) (Calc tax payable) | 

RESTACC ................0058. DUNG LY SPDSHEET........ GRAHAM MORPHETT 
(Tape restruant accounts) (Disk 22 coloum spreadsheet) 

PRSPDSHT ....... GRAHAM MORPHETT ACS3 .... cee eee GREG WILSON 
(Disk print out SPDSHEET) (Multi disk data base) 


Next: 
Best of CoCoOz #5. Adventure Games Due: April ’86 
Best of CoCoOz #6. Preschool Education Due: June ’86 


S U BSC RI PT| O N FO R M Additional Requirements: 


GOLDSOFT. P.O. BOX 1742, SOUTHPORT, 4215. 


AUSTRALIAN RAINBOW $24.75 
1 6months $39.95 
1 12 months $39.95 


AUSTRALIAN CoCo! Softgold 
(11 6 months $19.00 











(1 12 months $31.00 


a 
RAINBOW ON [] DISK 
[J 6 months $ 81.00 
C1) 12 months $172.00 
LJ deb monthly $ 15.00 


CoCoOz ON 0 DISK Credit Card No.: 
1) 6 months $ 58.00 

C1 12 months $102.50 (J Bankcard 

0 deb monthly $ 10.95 Authorised AMT $ 


MicoOz OFFICE USE ONLY: 
11 6 months Received:- 
11 12 months 












TANDY ELECTRONICS DEALER. (No 9320) 


Bankcard & 
Cheque Orders 
accepted 








Computer Hut 8oftware 
Are proud to announce that we ore now the 
sole Austraolion distributers for - 


* MARK DATA PAODULTS * LCOBNITEL 

* COMPUTER |o&L and * DERRINGER SOF THARE 

* GPECTAAL ASSOCIATES * TAILAD PIETHUAE CORP. 

* TOM Mik SOF VWARE * UIP TECHNOLOGIES 

* GUBAA SOF TWARE * COMPUTER STORY BOOKS 

* PAICKALY PEAR SOFTWARE * PICOSOFT 

* GPECTAUM PAQJELTS * COASTAL COMPUTER SEAUVIEES 
* PAL CREATIONS * NOVASOFYT 

* 


Cut S Neat SOFTWARE * COCO CASSETTE Cmonthiyd 


We have about 300 programs with more on the wog. 
SEE YOUR LOCAL TANDY DEALER 


or send $1-00 for a full catalogue to:- 
tle accept !- Computer Hut Software 
* BHAKEHAD 21,Willioams Street. 
* MASTERCARD Bowen.Q@!d.4805. 
* UISACARD Phone (077)86-2220 


or VIATEL No 778622200. 


mee Our price !t3igt a7 AUSTRALIAN RALNACu | 


(Stop between numbers = b.h. else 
Ser rou On aC S a.h.; but, hyphen between = both. ) 
ADELAID OHN HAIN B 278 3560 DORSTER ARY BH Y 065 54 5029 PERTE AN MACLEOD 09 448 $ WYNYARD ANDREW WYLLIE 004 35 1839 
NORTH STEVEN EISENBERG 08 250 6214 GLADSTONE CAROL CATHCART 079 78 3594 PORT LINCOLN BILL BOARDMAN 086 82 2385 WYONG JOHN WALLACE 043 90 0312 
BRIGHTON GLENN DAVIES 08 296 7477 GOLD COAST GRAHAM MORPHETT 075 51 0015 PORT MacQUARIE RON LALOR 065 83 8223 YARRAWONGA KEN SPONG 057. 44 1488 
GREENACRES BETTY LITTLE 08 261 4083 GOSFORD PETER SEIFERT 043 32 7874 PORT PIRIE KEVIN GOWAN 086 32 1368 
MORPHETTVALE KEN RICHARDS 08 384 4503 GOULBURN VALLEY TONY HILLIS 058 59 2251 ROCKHAMPTON KEIRAN SIMPSON 079 28 6162 
PORT NOARLUNGA ROB DALZELL 08 386 1647 GRAFTON PETER LINDSAY 066 42 2503 SALE BRYAN McHUGH 051 44 4792 ae ae ee ee ee eee 
SEACOMBE HTS GLENN DAVIS 08 296 7477 GUYRA MICHAEL J. HARTMANN 067 79 7547 SHEPPARTON ROSS FARRAR 058 25 1007 | 
STURT MARY DAVIS 08 296 7477 HASTINGS MICHEAL MONCK 059 79 2879 SMYTHESDALE TONY PATTERSON 053 42 8815 SPECIAL INTEREST GROUPS 
ALBURY RON DUNCAN 060 43 1031 HERVEY BAY LESLEY HORWOOD 071 22 4989 SPRINGWOOD DAVID SEAMONS 047 51 2107 BUSINESS 
ARMIDALE DANIEL CLARKSON 067 72 8031 HOBART BOB DELBOURGO 002 25 3896 SWAN HILL BARRIE GERRAND 050.32. 2838 BRIZBIZ BRIAN BERE-STREETER 07 349 4696 
BAIRNSDALE COLIN LEHMANN 051 57 1545 JUNEE PAUL MALONEY 069 24 1860 SYDNEY: OS9 GROUPS 
BALLARAT MARK BEVELANDER 053 32 6733 KALGOORLIE TERRY BURNETT 090.21.5212 BANKSTOWN CARL STERW 02.646 3619 BANKSTOWN CARL STERN 02 646 3619 
BIGGENDEN ALAN MENHAM 071 27 1271 KINGSTON. WIM DE PUIT 002 29 4950 BNKSTWN WEST ARTH PITTARD 02 72 2881 BRISBANE JACK FRICKER 07 262 8869 
BLACKWATER ANNIE MEIJER 079. 82.6931 KEMPSEY RICK FULLER 065 62 7222 BLACKTOWN KEITH GALLAGHER 02-627-4627 CARL I NGFORD ROSKO MCKAY 02 624 3353 
BLAXLAND BRUCE SULLIVAN 047 39 3903 LISMORE ROB HILLARD 066 24 3089 CAMPBELLTOWN = LEO GINLEY 02 605 4572 COOMA FRED BISSELING 0648 23263 
BOWEN TERRY COTTON C/O 077 86 2220 LITHGOW DAVID BERGER 063 52 2282 CARLINGFORD ROSKO MCKAY 02 624 3353 KALGOORLIE TERRY BURNETT 090. 21.5212 
BRISBANE: MACKAY LEN MALONEY 079511333x782 CHATSWOOD  =BILL O'DONNELL 02 419 6081 SYDNEY EAST JACKY COCKINOS 02.344.9111 
BIRKDALE COLIN NORTH 07 824 2128 MAFFRA MAX HUCKERBY 051 45 4315 or MARK ROTHWELL 02 817 4627 SYDNEY NTH MARK ROTHWELL 02 817 4627 
BRASSALL BOB UNSWORTH 07 201 8659 MAITLAND LYN DAWSON 049 49 8144 CLOYTON HERMAN FREDRICKSON 02 6236379 NC-10 GROUPS 
EAST ROB THOMPSON 07 848 5512 MARYBOROUGH NORM WINN 071 21 6638 HILLS DIST DENIS CONROY 02 671 4065 LITHGOW DAVID BERGER 063 52 2282 
IPSWICH MILTON ROVE 07 281 4059 MELBOURNE: HORNSBY ATHALIE SMART 02 848 8830 ORANGE DAVID KEMP 063 62 2270 
PINE RIVERS BARRY CLARKE 07 204 2806 DANDENONG DAVID HORROCKS 03 793 5157 KENTHURST TOM STUART 02 654 1610 PORT LINCOLN BILL BOARDMAN 086 82 2385 
SOUTH WEST GRAHAM BUTCHER 07 376 3400 DONCASTER JUSTIN LIPTON 03 857 5149 LEICHHARDT STEVEN CHICOS 02 560 6207 ROCKHAMPTON TIM SHANK 079 28 1846 
SANDGATE MARK MIGHELL 07 269 5090 FRANKSTON BOB HAYTER 03.783.9748 or GORGE ECHEGARAY 02 560 9664 SYDNEY RAJA VIJAY 02 519 4106 
SCARBOROUGH PETER MAY 07 203 6723 NARRE WARREN LEIGH EAMES 03 704 6680 LIVERPOOL LEONIE DUGGAN 02-607-3791 WARRNAMBOOL GARY FURR 055 62 7440 
BROKEN HILL TERRY NOONAN 080 88 2382 NTH EASTERN KEVIN KAZAZES 03 437 1472 MacQUARIEFLDS KEITH ROACH 02 618 2858 TANDY 1000 / MS DOS 
BUNDABERG RON SIMPKIN C/O TANDY MELTON ‘MARIO GERADA 03 743 1323 ROSEVILLE KEN UZZELL 02 467 1619 BRISBANE 
CAIRNS GLEN HODGES 070 54 6583 RINGWOOD IVOR DAVIES 03 758 4496 SUTHERLAND IAN ANNABEL 02 528 3391 NORTH BRIAN DOUGAN 07 30 2072 
CAMDEN KEVIN WINTERS 046.66. 8068 SUNBURY JACK SMIT 03.744. 1355 SYDNEY EAST JACKY COCKINOS 02 344 9111 SOUTH BARRY CAWLEY 07 390 7946 
CANBERRA NTH JOHN BURGER 062 58 3924 MOREE ALF BATE 067 52 2465 TAMWORTH ROBERT WEBB 067 65 7256 GOLD COAST GRAHAM MORPHETT 075 51 0015 
CANBERRA STH LES THURBON 062 88 9226 MORWELL GEORGE FRANCIS 051 34 5175 TAHMOOR GARY SYLVESTER 046 81 9318 MELBOURNE TONY LLOYD 03 500 0878 
CHURCHILL GEOFF SPOWART 051 22 1389 MT ISA PAUL BOUCKLEY-SIMONS 077 43 6280 TARA STEVEN YOUNGBERRY SYDNEY ROGER RUTHEN 047.39.3903 
COFFS HARBOUR BOB KENNY 066 51 2205 MUDGEE BRIAN STONE 063-72-1958 TONGALLA TONY HILLIS 058 59 2251 WYONG JOHN WALLACE 043 90 0312 
COOMA ROSS PRATT 0648 23 065 MURGON PETER ANGEL 071 68 1628 TOOWOOMBA GRAHAM BURGESS 076 30 4254 FORTH 
COORANBONG GEORGE SAVAGE 049 77 1054 WAMBUCCA HDS WENDY PETERSON 065 68 6723 TOWNSVILLE JOHN O’ CALLAGHAN 077 73 2064 BRISBANE JOHN POXON 07 208 7820 
COOTAMUNDRA CHERYL WILLIS 069 42 2264 NARROMINE GRAEME CLARKE 068 89 2095 TRARALGON MORRIS GRADY 051 66 1331 PORT LINCOLN JOHN BOARDMAN 086 82 2385 
DALBY ANDREY B. SIMPSON 074.62. 3228 NEWCASTLE LYN DAVSON 049 49 8144 UPPER HUNTER TERRY GRAVOLIN 065 45 1698 SYDNEY JOHN REDMOND 02 85 3751 
DARWIN BRENTON PRIOR 089.81.7766 NOWRA ROY LOPEZ 044 48 7031 URALLA FRANK MUDFORD 067 78 4391 ROBOTICS | 
DENILIQUIN WAYNE PATTERSON 058 81 3014 ORANGE STEVE LOVETT 063.62. 4025 WAGGA WAGGA CES JENKINSON 069 25 2263 BOWEN TONY EVANS 077 86 2220 
DUBBO GRAEME CLARKE 068 89 2095 or JIM JAMES 063 62 8625 WHITEROCK GLEN HODGES 070 54 6583 GOLD COAST GRAHAM MORPHETT 075 51 0015 
EMERALD LEIGH EAMES 059 68 3392 PARKES DAVID SMALL 068 62 2682 WHYALLA MALCOLM PATRICK 086 45 7637 TAMWORTH ROBERT WEBB 067 65 7256 
FORBES JOHANNA VAGG PENRITH ALEX SCHOFIELD 047 31 5303 WONTHAGGI LOIS O'MEARA 056 72 1593 WAGGA WAGGA CES JENKINSON 069 25 2263 


AUSTRALIAN RAINBOW MAGAZINE 
REGISTERED BY AUSTRALIAN POST — 


068 52 2943 


PUBLICATION NO. QBG 4009 





In 


Australian Coco 


This Month: 
* Four Education Progs! 
*K Sale of the Century! 
* M-Masters ‘a game>D. 


POSTAGE 


PAID 
AUSTRALIA 


Music! 
A Driving Test! 
Expert Systems. 


AUSTRALIAN COCO /softgold 
REGISTERED BY AUSTRALIAN POST — 
PUBLICATION NO. QBG 4007. 

PO BOX 1742, 
SOUTHPORT. QLD. 4215. 


Plus all your favourite regular columns! 





